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Inhoud van dit nummer 


Red Storm Rising 6 

De Amerikaanse spelletjesmakers zijn 
duidelijk niet in staat om snel en alert te 
reageren op de mondiale ontwikkelingen. 
Ondanks de Glasnost en het zinken van 
een Russische onderzeeër, is Red Storm 
Rising een koude oorlog-game, dat zich 
hoofcïzakelijk afspeelt rond het Midden 
Oosten. Maar toegegeven: Dit onderzee- 
boot-avontuur is wel van grote klasse! 

Graphics op de 64 (1) 30 

Het eerste deel van een artikelenserie 
over de grafische mogelijkheden van de 
C-64. Michel de Boer en Hylke Sprangers 
zullen deze stap voor stap cursus vanaf 
dit nummer gaan verzorgen. De eerste 
aflevering gaat over karakters. 


Listing-rubrieken 


C-64 

12 

C-128 

55 

Amiga 

81 


Tips & trucs 64 


37 


Een nieuwe rubriek voor de 64, met han¬ 
dige peeks, pokes en kleine programma’s. 
Een rubriek voor en door lezers. 


CAD op de C-128 

Computer Aided Design is niet meer al¬ 
leen weggelegd voor de high-tech ontwer¬ 
pers. Inmiddels zijn er ook voor de Com¬ 
modore 128 een aantal pakketten be¬ 
schikbaar gekomen. 

Aanraders & Meepikkers 65 

De Amiga tips & trucs- rubriek, waarin 
elke Amiga-freak iets van waarde zal kun¬ 
nen vinden. En zo niet..., dan kun je zelf 
schrijven naar deze rubriek voor iedereen! 


Basic Miniatuurtjes 


40 


Zany Golf 


69 


Voor velen ‘terug van weggeweest’, voor 
anderen wellicht een prettige verrassing: 
Na enige maanden heeft Alex van Maar- 
schalkerwaart de draad weer opgepikt. 
Korte listings met leuke en handige pro¬ 
gramma’s. 


Een spelletje midget-golf, waarbij je niet 
afhankelijk bent van net weer. Dat kan 
met het nieuwste Amiga spel van Electro¬ 
nic Arts. Niet makkelijk, maar wel voor 
uren plezier. 


Geos info 


42 


Amiga Zelfbouw: 
Spectrum-analyser 


74 


De vragen en tipsrubriek voor alle Geos 
gebruikers staat weer boordevol nieuwtjes 
en wetenswaardigheden. 


GeoChart 


44 


Ditmaal in de zelfbouw-rubriek het bou¬ 
wen van een heuse sampler (waarmee 
geluid kan worden gedigitaliseerd) en de 
bijbehorende software, waarmee de gelui¬ 
den op het beeldscherm getoverd kunnen 
worden. 


De nieuwste aanwinst in de Geos-familie 
is dit business-graphics programma met 
vele grafische hoogstandjes. 


Boot 128 


46 


Vaste Rubrieken 


Strip 

73 

Kleine Advertenties 

8, 98 

Oud van Goudriaan 

26 

Amiga machinetaal 

94 


Het veranderen van de Boot-sector op de Oud van Goudriaan 26 

128 geeft de mogelijkheid om zelf de ge- Amiga machinetaal 94 

bruiksvriendelijkheid van je machine te 

vergroten. 


Redactioneel 

Het lijkt erop, dat Commodore zijn traditionele januskop nog niet heeft afgezet. Aan de 
ene kant zegt het bedrijf zich vooral te richten op de professionele toepassingen, met 
de zwaardere PC’s en Amiga modellen, waarvoor men fraaie concepten lanceert. Aan 
de andere kant moet natuurlijk wel blijven verkopen, en het merendeel van de omzet 
komt nog steeds van de trouwe C-64 en de goedkopere huiscomputermodellen. We 
hadden even het idee, dat men de PC’s dan echt als zakeliike modellen zou blijven 
houden, daarmee boekt men in Duitsland veel succes en is Commodore bijna markt¬ 
leider. Toen zette Kwantumhallen echter de PC-1 en de Amerikaanse Colt modellen, 
die toch typisch in de categorie budget-computers vallen, weer paginagroot in de 
kranten. 

Commodore verkoopt bijzonder goed met die produkten en voor minder dan 1000 
gulden een echte PC met 512 KB en alles wat er bij hoort, dat is ook een koopje. Het 
probleem is echter, dat op lange termijn de koper dan wel de naam Commodore blijft 
verbinden aan dergelijke koopjes. Dan is het moeilijker om doordachte, maar ook 
duurdere netwerk en multi-user systemen in de markt te zetten. Gelukkig hoeven de 
meeste lezers van dit blad zich daar verder geen zorgen over te maken, de 64 blijft, 
ondanks alle geruchten, nog steeds goed lopen en Commodore gaat er nog lang met 
mee ophouden. Ook de Amiga doet het weer goed, we hebben voor het volgende 
nummer een hele reeks nieuwe spelsoftware van Mirrorsoft binnengekregen, er blijft 
genoeg nieuws komen. 

Luc Sala 
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Red de wereld van de Sovjet overheersing, met behulp van de nieuwste onderzöe- 
boot-simulator. 



R ed Storm Rising is een hart-kloppend simulatieprogramma waarbij de 
speler het commando heeft over een Amerikaanse nucleaire onderzee¬ 
boot. Met de Russen, die voorbereidingen treffen om de olievelden In het 
Midden Oosten over te nemen, komt het tot een botsing. De speler heeft 
hierbij een cruciaal aandeel in deze oorlog op zee, vechtend tussen de 
Russische beer en een totale overheersing van de wereld. Een combinatie 
van briljant strategisch- en tactisch denkwerk zijn noodzakelijk om deze 
technologische oorlogsvoering onder water te overleven. Het spel bevat 
trainingscenes, om mee te beginnen, gevolgd door opwindende zeeslagen 
van toenemende moeilijkheidsgraad. De uiterste uitdaging is de uiteindelij¬ 
ke zeeslag. Hierbij ervaart de speler het gehele verloop van de derde 
Wereldoorlog, zoals de schrijver, Tom Clancy, het op zo’n dramatische 
wijze heeft beschreven in zijn boek Red Storm Rising, de bestseller over 
moderne oorlogsvoering. Wat zal de uitkomst zijn in de strijd, met jou als 
commandant van een Amerikaanse onderzeeboot? 


Het spel wordt geleverd voor verschil¬ 
lende computers, waaronder de C64. 
Het pakket bestaat uit een dubbelzij¬ 
dige diskette, een toetsenbord-over- 
lay, een Engelse handleiding en een 
technisch supplement met specifieke 
aanwijzingen per computertype. Het 
technisch supplement geeft de bete¬ 
kenis weer van specifieke toetsen en 
andere controletoetsen, die worden 
gebruikt bij de besturing van de on¬ 
derzeeboot. De toetsenbord-overlay 
biedt een duidelijk overzicht van de 
functies welke een toets bezit. Wan¬ 
neer het spel voor het eerst wordt ge¬ 
speeld, luidt het advies een training te 
volgen, alvorens de veel moeilijker 
"battles" te spelen. Hierdoor krijg je 
ervaring met het gebruik van de toet¬ 
sen. Met name de navigatie, het ge¬ 
bruik van de wapensystemen, sonar 
en radar vergen wel enige ervaring. 
Wanneer je eenmaal door de training 
heen geworsteld bent, wordt het tijd 


vooreen echte "battle". Red Storm Ri¬ 
sing heeft veel opties. Om een selec¬ 
tie te maken wordt gebruik gemaakt 
van de joystick, muis of cursortoet- 
sen. Deze wordt in het spel de con¬ 
troller genoemd, terwijl de vuurknop 
of returntoets wordt aangeduid als se- 
lector. 

Start-opties. 

Er kan een keuze worden gemaakt uit 
een viertal jaren, waarin de "battle" 
zal plaatsvinden. Afhankelijk van het 
gekozen jaar, beschikt men in het 
spel over geavanceerde bewapening. 
Maar de tegenpartij, de Russen, be¬ 
schikken eveneens, afhankelijk van 
het gekozen jaar over modernere 
schepen en bewapening. Na deze 
keuze wordt een identificatietest afge¬ 
nomen. Hierbij verschijnt een bepaald 
type oorlogsschip op het scherm, 
waarvan je de klasse correct moet in¬ 


typen. Wanneer je een correct ant¬ 
woord geeft mag je je naam intikken 
en kun je verder gaan. Zo niet, wordt 
je teruggestuurd naar de training- 
school. Vervolgens kan een keuze 
worden gemaakt met welk schip je de 
oorlog in wilt. Bepaalde types zijn, af¬ 
hankelijk van het eerder gekozen 
jaartal wel of niet beschikbaar. Een 
regel hierbij is, hoe hoger het jaartal 
hoe nieuwer de schepen. Hoe nieu¬ 
wer de schepen, des te stiller ze zijn 
en des te meer bewapening ze kun¬ 
nen meevoeren. Zo zul je een schip 
uit de Seawolf-klasse, die uiterst 
krachtig is, pas kunnen kiezen wan¬ 
neer je als jaartal 1996 hebt geselec¬ 
teerd. Naast dit alles bestaat de mo¬ 
gelijkheid om een bepaald "level" te 
selecteren. Hierbij kan je kiezen uit 
een introductie-, een normale-, een 
serieuze- en uiteindelijke uitdaging. 
Het spel bevat drie scenario’s, zoals 
training-acties, oorlogs-simulaties en 
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de uiteindelijk derde Wereldoorlog. 
De speler krijgt zijn orders van de 
computer via een satelliet. Deze kun¬ 
nen gedurende het spel wijzigen. Het 
is mogelijk om gedurende het spel te 
pauzeren door op de P-toets te druk¬ 
ken. Dit geeft de speler de mogelijk¬ 
heid even op adem te komen en het 
geheel te analyseren. 

Toetsenbord gebruik. 

Het gebruik van het toetsenbord in dit 
moeilijke spel is van groot belang, 
daar de meeste functies door een 
toetsaanslag worden gerealiseerd. 

Zo kan met behulp van de F1 -toets 
worden geschakeld tussen een tacti¬ 
sche weergave of één van de andere 
informatieschermen, zoals sonar-ver- 
gelijking, wapencontrole, defensie- 
weergave, periscoop en scheeps-da- 
tabank. Deze functies worden alle¬ 
maal geactiveerd met behulp van de 
functietoetsen. Een bepaald scherm 
blijft steeds zichtbaar tot een andere 
toets wordt ingedrukt en daarmee de 
bijbehorende functie wordt geacti¬ 
veerd. De snelheid waarmee de on¬ 
derzeeboot vaart wordt geregeld met 
de + en - toetsen. De diepte wordt be¬ 



TYPE: ASW DESTROYER 

DISPLACEMENT: 6400 TONS 
MAXIMUM SPEED: 36 KNOTS 

WEAPONS SYSTEMS: 

WIRE-GUIDED TORPEDOES 
SS-N-16 ASW MISSILE 
HELIX ASW HEÜCOPTER 
ASW SONAR SUITE: 

LF HULL-MOUNTED ACTIVE 
LF HULL-MOUNTED PASStVE 
LF TOWED VARIABLE-DEPTH 


SOUND LEVEL: 46 AV VERY NOISY 



paald nadat men op de CLR/HOME 
toets heeft gedrukt, zodat de diepte 
ingevoerd kan worden door een drie- 
cijferig getal in te tikken. Koerswijzi¬ 
gingen worden ingesteld met behulp 
van de INST/DEL toets. Om een tor¬ 
pedo te laden gebruikt men de 4-toets 
en om projectielen af te vuren wordt 
gebruik gemaakt van de toetsen 5 t/m 
8. Er is ook een help-toets, die je in 
staat stelt informatie op te vragen uit 
tactiek-computer. 


Conclusie. 

Red Storm Rising is één van de 
meest natuurgetrouwe simulatoren, 
waarover zeer goed is nagedacht. 
Het is niet een spel voor de speler die 
na het opstarten gelijk resultaat wil 
zien. Je moet er voor gaan zitten en 
bereid zijn eerst de handleiding gron¬ 
dig door te nemen, alvorens het ge¬ 
weld op het scherm los te laten bar¬ 
sten. Zeer geavanceerde, realistische 
bewapening, maar ook een zeer na¬ 
tuurgetrouwe navigatie-simulatie ma¬ 
ken het spelen van dit spel voor de 
ware strateeg tot een plezier. Enkele 
karakteristieken van het pakket zijn 
o.m. zeer realistische simulatie van 
nucleaire onderzeeboten, intelligente 
computergestuurde wapenssyste- 
men, een ontstellende variatie aan 
onderwatergebieden, een scala aan 
uitdagingen. Red Storm Rising is ge¬ 
programmeerd door de befaamde 
ontwerper/programmeur Sid Meier, 
die eerder al F-16 Strike Eagle en Si- 
lent Service heeft ontwikkeld. Het 
pakket is verkrijgbaar voor de C64 en 
Cl 28 zowel op tape als op diskette en 
kost ongeveer fl. 79,00. 

Bert Venema 



WAT DACHT U VAN 5.000 ARTIKELEN IN VOORRAAD OP COMPUTERGEBIED 


Laten we er maar eens een paar opsommen. 


Final Cartridge 


Spellen 


Wij hebben meer dan 600 spellen 
in voorraad, van eenvoudig tot 
zeer geavanceerd. 

Diskette box 100 stuks 18,95 
Diskettes v.a. 8,95 10 stuks 
Diskettes kleur v.a. 14,95 
Kettingpapier v.a. 15 ,— 


• Volledig menugestuurd! • Werkt 
met muis, joystick of toetsenbord! 


Power Cartridge 


99,- 


16 k uitwendig operating _ _ 

system! 99,- 


MINI KANTOOR «Centronics interface 


Zes modules in 1 pakket! 

• Tekstverwerker 

• Database 

• Label printer 

• Spreadsheets 

• Graphics 

• Communicatie 

Dit alles 7 Q 
voor slechts #11,“ 


179,- 


92000 g 

• Ongebufferde Centronics interface. 

• Volledig GE0S compatible. 

92008 g 229,“ 

• Centronics interface, voorzien 
van een 8k buffer! 

• Doorwerken terwijl uw printer 
nog bezig is! 


SOUND SAMPLER DE LUXE 


Zet uw eigen stem of muziek op disk/tape! 

• Met microfoon! 

• Een superieur kwaliteitsprodukt! 

• Weergave met de meest geweldige 
effecten (vooruit, achteruit, echo, vibratie, 
ring-modulatie, etc.)! 

• Zeer krachtige sequencer! 1QQ _ 

• 8 bit conversie! ■***», 

• 8 samples tegelijk in geheugen! 


MODEM VOOR COMMODORE 64 
TELTRON 1200 MODEM 399- 


• Officieel CAT & K0RCH dealer. 

Wij zijn ook officieel Commodore dealer. 


Open elke dag van 9.30 tot 18.00 uur. 
Donderdagavond doorloi 
Maandag gesloten tot 13.00 uur. 




BEURS 64 


Boekhoudpakket 


Nu slechts 



Alle prijzen zijn incl. BTW. Prijswijzigingen voorbehouden. 

COMPUTERSHOP utrecht, 

DAAR KUNT U ALTIJD TERECHT. 

MAAR U KUNT OOK TELEFONISCH BESTELLEN. 

Computershop Utrecht, St. Jacobsstraat 273-275. Tel.: 030-334030/3.41428. 
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Checksum C-64 


Syntax Checksum 


Het overtikken van een listing kan een heel karwei 
zijn en als u een beetje normaal mens bent dan 
maakt u daarin beslist een aantal fouten. Nu is niets 
moeilijker dan de fouten uit je eigen werk te halen. 
Al geruime tijd heeft Jan Bodzinga hiervoor een zgn. 
Checksum-programma geschreven. Om de vele 
nieuwe lezers van Commodore-info te helpen volgt 
hieronder nog een keer een volledige uitleg over de 
werking van dit programma, waarmee het, hoe 
vreemd dat misschien ook lijkt, echt mogelijk is om 
met behulp van dit programma de fouten in elke 
door ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt 
hem voordat u het programma RUNt op een diskette 
of cassette. 

2. U tikt het RUN commando in. Mocht het program¬ 
ma de boodschap 'FOUT in dataregels!’ geven dan 
heeft u een fout bij het overtikken gemaakt. Herstel 
dan de fout en SAVE de verbeterde versie. Mocht 
het programma met de boodschap 'data is weggezet 
checksum testen met sys...'komen dan is tot dusver 
alles goed. Het programma is nu in een stukje 
machinetaalgeheugen gezet. Als u het NEW com¬ 
mando geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic 
geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de 
gehele listing opnieuw te gaan intikken. Als u nu een 
programma op fouten wilt gaan controleren dan kunt 
u dat in het geheugen laden(wel eerst het checksum 
programma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 
49152(c-64) of sys 1536 (c-16 en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regel¬ 
nummers over het scherm met getallen erachter. 
Dezelfde lijst staat ook achter elk door ons geplaat¬ 
ste programma. Wijkt nu een nummer achter een re¬ 
gelnummer af van het nummer dat in het blad staat 
dan heeft u in die regel iets anders ingetikt dan er in 
het blad stond. U kunt de stroom getallen d.m.v. de 
RUN/STOP toets pauzeren en weer vervolgen met 
de F1 of F7 toets. Het is uitermate belangrijk dat u 
goed met dit programma overweg kunt en mocht u 
het niet goed werkend krijgen bel dan gerust even 
met onze listingservice telefoonlijn. (Maandag 17.00 
- 21.00 uur. Telefoonnummer 02155-25162.) 

1 rem ****************************** 

* * * 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new 

ïf 

4 rem blijft dit programma in het ge 

5 rem heugen, laad het te testen pro 

6 rem gramma en tik daarna sys 49152 

7 rem ****************************** 

*** 

i=49152 


20 reada:ifa<0then40:rem data ingelez 

en 

30 pokei,a:i=i+l:b=b+a:goto20 

40 if b<>16844thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels!":b=0 
: end 

50 pok©49184,148:poke49185,192 

55 i=49300 

60 read a: ifa<0then80 

70 pokei, a:b=a+b:i=i+l:goto60 

80 if b<>20068thenprint n [SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 print"data[SPACE]is[SPACE]weggezet 

95 print"checksum[SPACE]testen[SPACE] 

met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73, 
192 

120 data 32,73,192,208,1,96,32,225,255 
, 208 

130 data 3,76,116,164,32,81,192,32,73, 
192 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,7 6,37,192,166,167,169, 0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 

77,163 

180 data 96,162,0,189,123,192,240,6,32 

, 210 

190 data 255,232,208,245,32,73,192,170 

,32,73 

200 data 192,132,168,32,205,189,162,3, 

169,32 

210 data 32,210,255,202,208,250,169,0, 

133,167 

220 data 164,168,96,82,69,71,69,76,32, 

0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

** EINDE LISTING checksum 64 ** 


Checksum Checksum 64 


REGEL 

1 

249 

REGEL 

110 

158 

REGEL 

2 

84 

REGEL 

120 

232 

REGEL 

3 

105 

REGEL 

130 

183 

REGEL 

4 

2 

REGEL 

140 

96 

REGEL 

5 

246 

REGEL 

150 

96 

REGEL 

6 

152 

REGEL 

160 

127 

REGEL 

7 

249 

REGEL 

170 

71 

REGEL 

10 

157 

REGEL 

180 

223 

REGEL 

20 

64 

REGEL 

190 

73 

REGEL 

30 

38 

REGEL 

200 

79 

REGEL 

40 

57 

REGEL 

210 

109 

REGEL 

50 

14 

REGEL 

220 

106 

REGEL 

55 

251 

REGEL 

230 

225 

REGEL 

60 

192 

REGEL 

240 

16 

REGEL 

70 

42 

REGEL 

250 

163 

REGEL 

80 

244 

REGEL 

260 

92 

REGEL 

90 

245 

REGEL 

270 

22 

REGEL 

95 

237 




REGEL 

100 

183 
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: rem beginadres 








































































































met o.a. Propschrift 


PRINT OUT C-64 


Floppy-Hoes 


pi Bi 


sp$="[69xSPACE]" 

nn$(1) = "[COM-A]CCCCCCCCCCCCCCCCCC[ 
COM-S] » 

nn$ (2) = "B [SPACE] free [SPACE]blocks : 
[SPACE]...[SPACE]B" 

nn$(3)="B[4xSPACE]programs:[SPACE] 

...[SPACE]B" 

nn$(4)="B[3xSPACE]disk[SPACE]lock: 
[SPACE]...[SPACE]B" 

nn$(5) ="[COM-Q]CCCCCCCCCCCCCCCCCC[ 
COM-W] " 

nn$(6)="B[SPACE]>commodore-info<[S 
PACE]B" 

nn$(7)= M [COM-Z]CCCCCCCCCCCCCCCCCC [ 
COM-X] " 

fori=100tol06:nb$(i)=na$(i):next 
rem ***************************** 
rem ****** begin programma ****** 
rem ***************************** 
poke53280,0:poke53281 , 0:rem poke65 
0,0:poke809,255 
print"[CTRL-N][CTRL-H]" 
print"[SHIFT-CLR][COM-6][CTRL-9][4 
OxSPACE]"; 

print"[3xSPACE]FLOPPY-HOES[4xSPACE 
]voor[SPACE]de[2xSPACE]STAR[SPACE] 
SG-10[3xSPACE]"; 
print"[4OxSPACE]"; 

print"[COM-3][CTRL-9][SPACE][38xCO 
M '][SPACE]"; 

print"[SPACE][COM-G][36xSPACE][COM 
M][SPACE]"; 

print"[SPACE][COM-G][6xSPACE]dit[S 
PACE]is[SPACE]een[SPACE]programma[ 
SPACE]van[öxSPACE][COM-M][SPACE]"; 
print"[SPACE][COM-G][36xSPACE][COM 
M][SPACE]"; 

print"[SPACE][COM-G][llxSPACE]cornrn 
odore-info[llxSPACE][COM-M][SPACE]"; 
print"[SPACE][COM-G][36xSPACE][COM 
M][SPACE]"; 

print"[SPACE][38xCOM-T][SPACE][CTRL 8] 
print"[SPACE]Dit[SPACE]programma[S 
PACE]maakt[SPACE]een[SPACE]diskett 
e[SPACE]hoes" 

print"[2xSPACE]waarop[SPACE]de[SPA 
CE]directory[SPACE]van[SPACE]de[SP 
ACE]diskette" 

print"[4xSPACE]staat[SPACE]afgedru 

kt.[SPACE](DUBBELZIJDIG)" 

print 

print"—- 


Harold van Pinseren uit Boxtel heeft een programma ge¬ 
maakt dat een directory van een schijf kan lezen en deze 
verkleint op een diskette hoes kan uitprinten. Het pro¬ 
gramma is geschreven voor de Star SG10. Maar het kan 
op een eenvoudige manier worden aangepast door de 
codes uit de eerste 18 regels te veranderen. Nalezen 
welke code uit uw handboek van de printer anders is, en 
deze aanpassen dan moet het programm goed kunnen 
werken. Heeft U een centronics-printer dan moet er eerst 
een extra opdracht worden gegeven. U typt dan in: 
sys2064:new 

1 dimp$(17): rem *star sg-10*- 


p$ (1)=chr$(27)+"8" : rem 

nore paper-out signal 

p$(2)=chr$(27)+"u"+chr$(0):rem 

directional print 

p$(3)=chr$(27)+"u"+chr$(1):rem 

idirectional print 

p$(4)=chr$(27)+"a"+chr$(8):rem 

t line feed to 8/72 inch 

p$(5)=chr$(27)+ "e": rem 

phasized print 

p$(6)=chr$(27)+ "g": rem 

uble-strike print 

p$(7)=chr$(27)+"f" : rem 

ncel emphasized print 

p$(8)=chr$(27)+"h": rem 

ncel double-strike print 

p$ (9)=chr$(27)+chr$(15) : rem - 

densed print 

p$(10)=chr$(27)+"3"+chr$(9):rem 
et line feed 9/144 inch 
p$(11)=chr$(27)+"s"+chr$(0):rem 
uperscript on 

p$(12)=chr$ (18) : rem ■ 

a print 

p$(13)=chr$(27)+ "t": rem - 

cel superscript 

p$(14)=chr$(27)+"2": rem - 

line feed to 1/6 inch 
p$(15)=chr$(27)+"$"+chr$(1):rem 
se download characters 
p$(16)=chr$(27)+"*"+chr$(0):rem 
opy rom to download ram 
p$ (17)=chr$(27)+"*"+chr$(1) :rem 
efine download charac. 
rem -- 


; >4 

9 


; 


rem ********* floppy-hoes ********** 
rem ******************************** 
print"[SHIFT-CLR][COM-3][3xCRSR-DO 
WN][2xSPACE]zet[SPACE]de[SPACE]pri 
nter[SPACE]aan, " 

print"[CRSR-DOWN][3xSPACE]en[SPACE 
]druk[SPACE]<return>[2xCRSR-DOWN][ 
CTRL-4]" 

getq$ : ifq$Ochr$ (13) then70 
print"[SHIFT-CLR][CTRL-4][llxCRSR- 
DOWN][6xSPACE]even[SPACE]geduld...." 
gosub5030 

rem ******************************* 
rem ********* floppy-hoes ********* 
rem ******************************* 
gosuböOOO 

rem- 

dimna$(106),nb$(106), d$(145) 


30 
4 0 
1 50 


print" [3xSPACE] 1 [SPACE] = [SPACE] al 1 
een[SPACE]hoes[SPACE]printout" 
print"[CRSR-DOWN][3xSPACE]2[SPACE] 
=[SPACE]directory[SPACE]printout" 
print"[CRSR-DOWN][3xSPACE]3[SPACE] 
=[SPACE]complete[SPACE]hoes[SPACE] 
printout" 

print"[CRSR-DOWN][3xSPACE]D[SPACE] 
=[SPACE]directory" 
print"- 












2090 forj=m+lto99:na$(j)=left$(sp$,20):next 

2095 forj=lto7:na$(99+j)=nn$(j):next 
2100 na$(101)=left$(na$(101),15)+mid$(s 
tr$(c)+sp$,2,3)+right$(na$(101) , 2) 

2110 na$(102)=left$(na?(102),15)+mid$(s 
tr$(i)+sp$,2,3)+right$(na$(102),2) 

2120 na$(103)=left$(na$(103),15)+lo$+ri 
ght$(na$(103) ,2) 

2130 gosub2600:print"[COM-3][3xCRSR-D0W 
N] [2xSPACE] stop [SPACE] kant [SPACE] 2 
[ SP ACE ] van [ SP ACE ] de [ SP ACE ] di sk [ SPA 
CE]in[SPACE]de[SPACE]drive," 

2140 print"[CRSR-DOWN][7xSPACE]en[SPACE 
]druk[SPACE]<return>[2xCRSR-DOWN][ 
CTRL-4]" 

2150 getq$ : ifq$Ochr$ (13) then2150 
2160 gosub2240:print"[5xSPACE]":gosub2700 
2170 forj=ltom:nb$(j)=d$(j):next 
2180 nb$(0)=mid$(d$(0),1,17)+"id:"+mid$ 
(d$(0),19,5) 

2190 forj=m+lto99:nb$(j)=left$(sp$,20):next 
2195 forj=lto7:nb$(99+j)=nn$(j):next 
2200 nb$(101)=left$(nb$(101),15)+mid$(s 
tr$(c)+sp$,2,3)+right$(nb$(101),2) 

2210 nb$ (102)=left$(nb$(102),15)+mid$(s 
tr$(i)+sp$,2, 3)+right$(nb$(102),2) 

2220 nb$ (103)=left$(nb$(103),15)+lo$+ri 
ght$(nb$(103) , 2) 

2230 return 

2240 rem - 

2250 print"[CRSR-DOWN]" 

2260 t=18:s=l:i=0 

2270 openl,8,15, "i0" 

2280 open2,8,2, "#" 

2290 print#l,"ul";2;0;18;0 
2300 input*2,255, a$ 

2310 lo$="on[SPACE]":ifmid$(a$, 3, l)="a" 
thenlo$="off" 

2320 d$(i)=mid$(a$, 145,23) 

2330 print#l,"ul";2;0;t;s 
2340 input*2,255,a$ 

2350 t=asc(mid$(a$, 1,1) ) 

2360 s=asc(mid$(a$,2,1)) 

2370 ford=2to228step32 
2380 i=i+l:ifi>144then2440 
2390 printi"[CRSR-UP]"rifasc(mid$(a$,d+ 
1,1)) =0theni=i-l :goto2430 
2400 d$(i)=mid$(a$,d+4,16) 

2410 bl=asc(mid$(a$,d+28,1))*256+asc(mi 
d$(a$,d+29,1)) 

2420 d$(i)=d$(i)+right$("[2xSPACE]"+str 
$(bl),4) 

2430 next:ift<>0then2330 

2440 print#l,"m-r";chr$(250);chr$(2) 

2450 get#l,cl$ 

2460 print#l,"m-r";chr$(252);chr$(2) 

2470 get#l,c2$ 

2480 ifcl$=""thencl$=chr$(0) 

2490 ifc2$=""thenc2$=chr$(0) 

2500 c=asc(c2$)*256+asc(cl$) 

2510 closel:close2 
2520 m=98:ifi<98thenm=i 

2530 return 

2600 rem - 

2610 print"[SHIFT-CLR][COM-6]"chr$(142) 

;:printspc(tt)tl$:printspc(tt)t2$ 

2620 return 

2700 rem -— 

2710 nn$=mid$(d$(0) ,1, 16) 

2720 ii$=mid$(d$(0) , 19, 5) 

2730 print"[CTRL-4][3xSPACE]naam:[SPACE 


" • 
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5010 rem **** karakters definiëren **** 
5020 rem ****************************** 
5030 open4,4 
5040 print#4,p$ (15) 

5050 print#4,p$(16) 

5060 close4 

5070 restore :be=91:en=126 : gosut>5150 

5080 forw=ltoll:readww:next 

5090 be=160:en=191:gosub5150 

5100 restore:forw=lto5*ll:readww:next 

5110 be=192:en=223:gosub5150 

5120 be=224:en=254:gosub5150 

5130 forw=ltoll:readww:next 

5140 return 

5150 open4,4 

5160 print#4,p$(17)chr$(be)chr$(en); 

5170 forn=betoen 
5180 print#4,chr$(139); 

5190 form=ltoll 

5200 readmm 

5210 print#4,chr$(mm); 

5220 nextmrnextn 
5230 print#4:close4 
5240 return 

5250 rem ***** char. set one ***** 

5260 dataO, 0,0,254,130,130,130, 130,0,0,0 
5270 dataO,18,18,126,146,146,130,130,13 
0,66,64 

5280 dataO,0,0,130,130,130,130,254,0,0,0 
5290 dataO,0,16,48,112,254,112,48,16,0,0 
5300 datalö,16,56,56,124,16,16,16,16,16,0 
5310 data24,24,24,24,24,24,24,24,24,24,24 
5320 dataO,0,24,58,126,254,126,58,24,0,0 
5330 dataO,0,0,0,255,255,255,0,0,0,0 
5340 data24,24,24,24,24,24,24,24,24,24,24 
5350 data48,48,48,48,48,48,48,48,48,48,48 
5360 data96,96,96, 96, 96, 96, 96, 96, 96, 96, 96 
5370 datal2,12,12,12,12,12,12,12,12,12,12 
5380 dataO,0,255,255,255,0,0,0,0,0,0 
5390 dataO,0,0,0,0,0,255,255,255, 0,0 
5400 data24,24,28,14,15,7,3,0,0,0,0 
5410 dataO,0,0,0,192,224,240,112,56, 24,24 
5420 data24,24,56,112,240,224,192, 0,0, 0,0 
5430 data255,255,255,3,3,3,3,3,3,3,3 
5440 datal92,224,240,112,56,60,28,14,15,7 
5450 data3,7,15,14,28,60,56,112,240,224,1 
5460 data255,255,255,192,192,192,192,19 
2,192,192,192 

5470 datal92,192,192,192,192,192,192,19 
2,255,255,255 

5480 dataO,56,124,254,254,254,254,254,1 
24,56, 0 

5490 dataö, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6 

5500 dataO,96,240,248,124,62,124,248,24 


] "nn$ 

print" [CRSR-DOWN] [5xSPACE]id: [SPAC 


2740 


2750 print"[ 

2760 getq$:ifq$<>"j"andq$O”n"then2760 
2770 ifq$="n"thenreturn 
2800 pokel9,1 

2810 input"[6xCRSR-UP][9xCRSR-RIGHT]";n: 
2820 print:input"[CRSR-DOWN][9xCRSR-RIG 
HT]";ii$ 

2830 d$ (0)=left$(nn$+sp$,18)+left$(ii$ + 
sp$,5) 

2840 return 

3000 rem ****************************** 
3010 rem ***** directory printout ***** 
3020 rem ****************************** 
3030 open4,4:print#4 

3040 print#4,p$(3);p$(4);p$(5);p$(6); 
3050 print#4,spc(13)"O[25xCOM-Y]P[26xCO 
M Y] P" 

print#4,spc(13)"[COM-H]"na$(0)"[CO 
M N] [SPACE]"nb$(0)"[COM-N]" 


3060 


print#4,spc(13)"L[25xCOM-P][SHIFT- 
'][26xCOM-P][SHIFT-']" 
print#4,p$(7);p$(8);p$(9);p$(10);p 


3070 


3080 


print#4,spc(68)"B" 
fori=0to52 

print#4,spc(24)na$(1+i)"[SPACE]+[S 
PACE]"na$(54+i)"[SPACE]B[SPACE]"nb 
$(1+i)"[SPACE]+[SPACE]"nb$(54+i) 
next 

print#4,spc(68)"B" 
print#4,p$(12);p$(13);p$(14); 
print#4:close4 
return 

rem ***************************** 
rem ********* directory ********* 
rem ***************************** 
print"[SHIFT-CLR][COM-6]"chr$(142) 
printspc(14)"B[SPACE]directory[SPA 
CE] B" 

printspc(14)"JCCCCCCCCCCCK" 
print"[COM-3][3xCRSR-DOWN][2xSPACE 
]stop[SPACE]de[SPACE]diskette[SPAC 
E]in[SPACE]de[SPACE]drive," 
print"[CRSR-DOWN][6xSPACE]en[SPACE 
]druk[SPACE]<return>[2xCRSR-DOWN][ 
CTRL-4]" 

getq$ : ifq$Ochr$ (13) then4080 
gosub2240 

print"[SHIFT-CLR][CTRL-8]":j=0 
printd$(0) :print"- 


3090 

3100 

3110 


4050 

4060 


4070 


4080 

4090 

4100 

4110 


4120 j=j+1:ifj>ithen4160 
4125 print"[SPACE]"d$(j) 

4130 if (j/20) Oint (j/20) then4150 
4140 printspc(30)"[COM-3]<toets>":pokel 
98,0:waitl98,1:printspc(30)"[CRSR- 
ÜP][7xSPACE][CRSR-UP][CTRL-8]" 

4150 goto4120 

4160 print"-":pri 

nt"[2xSPACE]"c"blocks[SPACE]free.[ 
13xCRSR-UP]" 

printspc(30)"[COM-3]<return>[CRSR- 
DOWN] ":printspc(32)"voor[CRSR-DOWN 
]":printspc(32)"menu." 
getq$: ifq$Ochr$ (13) then4180 
4190 return 

5000 rem ****************************** 


5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 


4170 
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Checksum Floppy-hoes 






5640 dataO, 0,0,0,0,0,0, 0,0, 0,0 
5650 data255,255,255,255,255,255,0,0,0,0,0 
5660 datal5,15,15,15,15,15,15,15, 15, 15,15 
5670 datal28,128,128,128,128,128,128,12 
8,128,128,128 

5680 datal,1,1,1,1,1,1,1,1,1,1 
5690 data255, 0, 0,0,0,0, 0, 0,0,0,0 
5700 data204,204,204,51,51,51,204,204,2 
04,51,51 

5710 dataO, 0,0, 0,0, 0, 0,0, 0,0,255 
5720 datal2,12,12,3,3,3,12,12,12,3,3 
5730 data255,254,252,252,248,240,240,22 
4,192,192,128 

5740 dataO,0,0,0,0,0,0,0,255,255,255 
5750 dataO,0,0,0,255,255,255,24,24,24,24 
5760 dataO,0,0,0,0,15,15,15, 15, 15, 15 
5770 dataO,0,0,0,248,248,248,24, 24,24,24 
5780 data24,24,24,24,31,31,31,0,0,0,0 
5790 data3, 3, 3, 3,3, 3,3, 3, 3,3,3 
5800 dataO,0,0,0,31,31,31,24,24,24,24 
5810 data24,24,24,24,248,248,248,24,24,24, 
5820 data24,24,24,24,31,31,31,24,24,24,24 
5830 data24,24,24,24,255,255,255, 0,0,0,0 
5840 data255,255,255,0,0,0,0,0,0,0,0 
5850 data255,255,255,255,0,0,0,0,0,0,0 
5860 dataO,0,0,0,0,0,0,255,255,255,255 
5870 datal92,192,192,192,192,192,192,19 
2,192,192,192 

5880 data224,224,224,224,224,224,224,22 
4,224,224,224 

5890 data7,7,7,7,7,7,7,7,7,7,7 


5900 data3,3,3,3,3,3,3,3,255,255,255 
5910 dat al 5,15,15, 15,15, 15,0,0,0,0,0 
5920 dataO,0,0,0,0,240,240,240,240,240,240 
5930 data24,24,24,24,248,248,248,0,0,0,0 
5940 data2 40,240,240,240,240,240,O,0,0,0,O 
5950 data240,240,240,240,240,255,15,15, 

15,15,15 

6000 rem ****************************** 

6010 rem *********** input* *********** 

6020 rem ****************************** 

6030 rem - 

6040 fori=828to922 

6050 readx:pokei,x:s=s+x:next 

6060 datal69,71,160,3,141,8,3, 140, 9,3,9 

6,32,115,0,201,133,240,6,32,121,0,76 
6070 data231,167,32,115,0,201,172,240,6 

,32,191,171,76,174,167,32,155,183,32,3 
6080 data225,32,253,174,32,158,183,138, 

72,32,253,174,32,139,176,133,73,132,74 
6090 data32,163,182,104,32,117,180,160, 

2,185,97,0,145,73,136,16,248,200,32,18 
6100 data225,145,98,200,196,97,208,246, 
32,204,255,76,174,167 
6110 ifs<>11096thenprint"fout[SPACE]in[ 

SPACE]data[SPACE]!!":end 
6120 sys828:print"ok[SPACE]!" 

6130 return 


Einde listinq flo 
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print-out pr int-out print-out print-out print-out 

vervolg Checksum Floppy-hoes 



REGEL 

4130 

105 

REGEL 

5180 

232 

REGEL 

5430 

167 

REGEL 

5680 

86 

REGEL 

5930 

109 

........ 

REGEL 

4140 

81 

REGEL 

5190 

183 

REGEL 

5440 

9 

REGEL 

5690 

183 

REGEL 

5940 

175 


REGEL 

4150 

80 

REGEL 

5200 

33 

REGEL 

5450 

9 

REGEL 

5700 

189 

REGEL 

5950 

195 


REGEL 

4160 

241 

REGEL 

5210 

229 

REGEL 

5460 

239 

REGEL 

5710 

183 

REGEL 

6000 

123 


REGEL 

4170 

96 

REGEL 

5220 

217 

REGEL 

5470 

239 

REGEL 

5720 

140 

REGEL 

6010 

229 


REGEL 

4180 

164 

REGEL 

5230 

218 

REGEL 

5480 

166 

REGEL 

5730 

217 

REGEL 

6020 

123 


REGEL 

4190 

142 

REGEL 

5240 

142 

REGEL 

5490 

141 

REGEL 

5740 

143 

REGEL 

6030 

213 


REGEL 

5000 

123 

REGEL 

5250 

77 

REGEL 

5500 

119 

REGEL 

5750 

103 

REGEL 

6040 

95 


REGEL 

5010 

96 

REGEL 

5260 

70 

REGEL 

5510 

143 

REGEL 

5760 

143 

REGEL 

6050 

205 


REGEL 

5020 

123 

REGEL 

5270 

158 

REGEL 

5520 

102 

REGEL 

5770 

109 

REGEL 

6060 

26 


REGEL 

5030 

51 

REGEL 

5280 

70 

REGEL 

5530 

65 

REGEL 

5780 

191 

REGEL 

6070 

196 

..... .*w. 

REGEL 

5040 

35 

REGEL 

5290 

100 

REGEL 

5540 

187 

REGEL 

5790 

108 

REGEL 

6080 

176 

Sg&&sa&$w*s» 

REGEL 

5050 

36 

REGEL 

5300 

169 

REGEL 

5550 

80 

REGEL 

5800 

191 

REGEL 

6090 

151 


REGEL 

5060 

212 

REGEL 

5310 

157 

REGEL 

5560 

143 

REGEL 

5810 

69 

REGEL 

6100 

121 


REGEL 

5070 

19 

REGEL 

5320 

110 

REGEL 

5570 

62 

REGEL 

5820 

151 

REGEL 

6110 

178 


REGEL 

5080 

236 

REGEL 

5330 

143 

REGEL 

5580 

63 

REGEL 

5830 

103 

REGEL 

6120 

18 


REGEL 

5090 

124 

REGEL 

5340 

157 

REGEL 

5590 

31 

REGEL 

5840 

143 

REGEL 

6130 

14 r 


REGEL 

5100 

147 

REGEL 

5350 

223 

REGEL 

5600 

143 

REGEL 

5850 

251 





REGEL 

5110 

125 

REGEL 

5360 

0 

REGEL 

5610 

25 

REGEL 

5860 

251 





REGEL 

5120 

125 

REGEL 

5370 

124 

REGEL 

5620 

217 

REGEL 

5870 

239 





REGEL 

5130 

236 

REGEL 

5380 

143 

REGEL 

5630 

101 

REGEL 

5880 

195 





REGEL 

5140 

142 

REGEL 

5390 

143 

REGEL 

5640 

75 

REGEL 

5890 

152 





REGEL 

5150 

51 

REGEL 

5400 

102 

REGEL 

5650 

211 

REGEL 

5900 

167 





REGEL 

5160 

170 

REGEL 

5410 

144 

REGEL 

5660 

157 

REGEL 

5910 

143 





REGEL 

5170 

63 

REGEL 

5420 

144 

REGEL 

5670 

228 

REGEL 

5920 

175 





Propschrift 


Onder deze titel heeft Dim van den Heuvel veel 
meer verborgen dan je zou verwachten. Propschrift 
is een afkorting van Proportioneel schrift. Het pro¬ 
gramma voegt een extra commando aan Basic toe: 
POS. Met deze opdracht zet U teksten op het beeld¬ 
scherm in een proportioneel schrift. Natuurlijk heeft 
dit voordelen: 

- Er kunnen nu gemiddeld 45 tekens op het beeld¬ 
scherm 

- De letters hebben een natuurlijke stuktuur 

- Voor weergave wordt de bitmap gebruikt zodat er 
eenvoudig plaatjes bij gezet kunnen worden. 

Het programma kan bijzonder goed gebruikt worden 
voor bijvoorbeeld: 

- handleidingen en/of uitleg bij een spel 

- weergeven van tekst in een adventure 

De machinetaal-data kan direkt worden weggeschre¬ 
ven van uit het basic-programma. Alle informatie om 
met het programma te kunnen werken staat in het 
programma zelf. 


195 


197 


200 


205 


210 


215 

220 


10 
20 
30 
I 100 
110 
120 


130 


140 

150 


160 

170 


180 

190 


rem propschrift - commodore64 
rem door : dim van den heuvel 
rem terheijden (nb) 

poke53280,12;print"[HOME]"; 
gosub400 

sys51513:rem karakterset positione 
ren 

sys51419:rem runstop/restore bevei 
ligen 

poke51101,28:rem code voor kleur 
sys51090:rem lo-res ($cc00) vullen 
met kleurcode (28) 
sys51064:rem hi-res ($e000) schoon 
sys51162:rem het statement 'pos' a 
ctiveren 

sys51127:rem bitmap aanzetten 
print"[HOME]111111111111111111":pr 
int"[CRSR-DOWN]11[CRSR-DOWN][2xCRS 
R-LEFT]11[CRSR-DOWN][2xCRSR-LEFT]1 
1[CRSR-DOWN][2xCRSR-LEFT]11[CRSR-D 
OWN][2xCRSR-LEFT]11[CRSR-DOWN][2xC 


225 


230 


235 


240 


245 


250 


255 


RSR-LEFT]11[2xCRSR-DOWN][2xCRSR-LE 
FT] "; 

print"11111111111111111":print"[CR 
SR-DOWN]11[CRSR-DOWN][2xCRSR-LEFT] 
11[CRSR-DOWN][2xCRSR-LEFT]11[CRSR- 
DOWN] [2xCRSR-LEFT]11[CRSR-DOWN][2x 
CRSR-LEFT]11[CRSR-DOWN][2xCRSR-LEF 
T]11[CRSR-DOWN][2xCRSR-LEFT]11[CRS 
R-DOWN][2xCRSR-LEFT]11[CRSR-DOWN][ 
2xCRSR-LEFT]11" 

print"[4xCRSR-DOWN]111111111111111 
111111111111111111"rem kleuren ( 
l=zwart) 

pos"Proportioneel[SPACE]schrift:", 
0,0 

pos"*)[SPACE]Iedere[SPACE]letter[S 
PACE]heeft[SPACE]z'n[SPACE]eigen[S 
PACE]breedte.",0,2 

pos"*)[SPACE]De[SPACE]natuurlijke[ 
SPACE]letter-structuur[SPACE]bevor 
dert",0,3 

pos"de[SPACE]leesbaarheid.",18,4 
pos"*)[SPACE]Er[SPACE]kunnen[SPACE 
]gemiddeld[SPACE]47[SPACE]karakter 
s[SPACE]op[SPACE]een[SPACE]regel." 
,0,5 

pos " *) [SPACE] Uitermate [SPACE] gesch 

ikt [ SPACE ] voor [ SPACE ] het [ SPACE ] wee 

rgeven [ SPACE ] van " , 0, 6 

pos"uitleg,[SPACE]handleidingen[SP 

ACE]en[SPACE]menu's.", 18,7 

pos"Technische[SPACE]gegevens:",0, 

9 

pos"*)[SPACE]Het[SPACE]kleurgeheug 

en[SPACE]staat[SPACE]op[SPACE]loca 

tie[SPACE] $CC00 .",0,11 

pos"*)[SPACE]U[SPACE]kunt[SPACE]vo 

or-[SPACE]en[SPACE]achtergrondkleu 

ren[SPACE]instellen" ,0,12 

po s"met: [SPACE]POKE 51101,K:SYS 510 9 

0,[SPACE]waarbij",18,13 

pos"K[SPACE]=[SPACE]16[SPACE]*[SPA 

CE]Voorgrondkleur[SPACE]+[SPACE]ac 

htergrondkleur.",18,14 

pos"*)[SPACE]De[SPACE]bitmap[SPACE 


260 
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]staat[SPACE]op[SPACE]locatie[SPAC 
E]$E000.”, 0,15 

pos"*)[SPACE]ü[SPACE]zet[SPACE]een 
[SPACE]tekst[SPACE]op[SPACE]het[SP 
ACE]scherm[SPACE]met:", 0,16 
a$="POS"+chr$(34)+"tekst"+chr$(34) 
+",x,y[SPACE]waarbij[SPACE]x[SPACE 
]varieert[SPACE]van[SPACE]0-319" 
posa$,18,17 

pos"en[SPACE]y[SPACE]van[SPACE]0-2 
4[SPACE](geeft[SPACE]de[SPACE]REGE 
L[SPACE]aan!)", 18,18 
pos"*)[SPACE]Voor[SPACE]efficiënt[ 
SPACE]gebruik[SPACE]kunt[SPACE]u[S 
PACE]het[SPACE]beste[SPACE]de",0,1 


[SPACE]computer[SPACE]wordt",0,11 
po s"na[SPACE]het[SPACE]s aven[SPACE 
]gereset!)[SPACE]of[SPACE]'E'[SPAC 
E]voor[SPACE]einde.",18,12 
getr$:ifr$="s"then386 
ifr$=”"then380 
sys51808:poke53280,14:end 
getr$:ifr$=""then385 
poke43,0:poke44,199:poke45,144:pok 
e4 6, 202:save"pna",8,1:sys64738 
sys51808:poke53280,14:end 
rem data-inlees-routine 
fort=0to751:reada:c=c+a:poke50944+ 
t,a:next 

ifc<>9612Othenprint"fout[SPACE]in[ 
SPACE]gedeelte[SPACE]a":end 
c=0:fort=0to95:reada:c=c+a:poke517 
12+t,a:next 

ifc<>10642thenprint"fout[SPACE]in[ 
SPACE]gedeelte[SPACE]b":end 
fort=0to20:reada:poke51808+t,a:nex 
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pos "machinetaal [SPACE] direct [SPACE 
] wegschrijven, [SPACE] en [ SP ACE ] vanu 
it",18,20 

pos"uw[SPACE]eigen[SPACE]programma 
[SPACE]inladen.[SPACE]Het[SPACE]pr 
ogramma",18,21 

pos"beslaat[SPACE]de[SPACE]locatie 
s[SPACE]$C700[SPACE]tot[SPACE]$ca7 
5.", 18,22 

pos"Druk[SPACE]op[SPACE]RETURN[SPA 

CE]voor[SPACE]het[SPACE]volgende[S 

PACE]s cherm.",0,24 

getr$ : ifr$Ochr$ (13) then310 

sys51064:sys51090 

print"[HOME]11[5xCRSR-DOWN][2xCRSR 
-LEFT]11[3xCRSR-DOWN][2xCRSR-LEFT] 
11[3xCRSR-DOWN][2xCRSR-LEFT]11" 
pos"*)[SPACE]U[SPACE]kunt[SPACE]de 
[SPACE]machinetaal-data[SPACE]wegs 
chrijven[SPACE]door",0,0 
pos"op[SPACE]'S'[SPACE]te[SPACE]dr 
ukken.[SPACE]U[SPACE]kunt[SPACE]de 
[SPACE]routine[SPACE]dan[SPACE]van 
uit",18,1 

pos"uw[SPACE]eigen[SPACE]programma 
's[SPACE]inlezen[SPACE]op[SPACE]de 
ze[SPACE]manier:",18,2 
pos"Laat[SPACE]uw[SPACE]programma[ 
SPACE]beginnen[SPACE]met:",18,3 
a$="10[SPACE]IFA=1THEN30[3xSPACE]2 
0[SPACE]A=1:LOAD"+chr$(34)+"PRM"+c 
hr$(34)+",8,1" 

a$=a$+"[2xSPACE]30[SPACE]...":posa 
$,18,4 

pos"*)[SPACE]De[SPACE]benodigde[SP 
ACE]SYS-opdrachten[SPACE]staan[SPA 
CE] in [SPACE] de", 0, 5 

pos"eerste[SPACE]regels[SPACE]van[ 
SPACE]het[SPACE]programma[SPACE]ve 
rmeld,",18,6 

pos"behalve[SPACE]deze:[SPACE]SYS5 
18 0 8 [SPACE] = [SPACE]Uit z etten[SPACE 
]bitmap.",18,7 

pos"*)[SPACE]Alle[SPACE]tekst[SPAC 
E]staat[SPACE]in[SPACE]bitmap[SPAC 
E]en[SPACE]is[SPACE]dus[SPACE]makk 
elijk",0,8 

pos"te[SPACE]combineren[SPACE]met[ 
SPACE]Doodle-tekeningen[SPACE]en[S 
PACE]uit",18, 9 

pos"printen[SPACE]met[SPACE]een[SP 
ACE]grafisch[SPACE]programma.",18, 
10 

pos"*) [SPACE] Type [SPACE] nu [SPACE] ' 
S' [SPACE] voor [SPACE] SAVE [SPACE] (de 
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594 datal77,180,145,20,76,209,200,169 
596 dataO,141,171,2,177,180,141,170 

598 data2,174,168,2,78,170,2,110 
600 datal71,2,202,208,247,169, O, 141 
602 datal72,2,169,255,141,173,2,174 
604 datal68,2,56,110,172,2,110,173 
606 data2,202,208,246,177,20,45,172 
608 data2,13,170,2,145,20, 200, 200 
610 data200,200,200,200,200,200,177,20 
612 data45,173,2,13,171,2,145,20 
614 datal36,136,136,136,136,136,136,13 
6 

616 data200,192,8,208,158,32,45,201 
618 data96,234,120, 169, 232, 141,24,3 
620 datal69,200,141,25,3,88,96,169 
622 data4,141,136,2,76,71,254,234 
624 datal20,169,0,141,14,220,169, 48 
626 datal33,1,96,234,234,234,234,16 
628 datal8,56,233,128,201,32,16,2 
630 datal69,128,96,201,64,16,249,24 
632 datal05,64,96,201,32,16,3,169 
634 datal28,96,201,64,16,1,96,201 
636 data96,16,4,56,233,64,96,56 
638 data233,32,96,234,169,55,133,1 
640 datal69,1,141, 14,220, 88, 96, 234 
642 datal20,169,O,141,14,220,169, 51 
644 datal33,1,162,4,169,O,160,216 
64 6 datal33,250,132,251,169, 0,160,204 

648 datal33,252,132,253,160,0,177,250 
650 datal45,252,200,208,249,230,251,23 
O 

652 data253,202,208,240,169, 48, 133, 1 
654 data32,154,201,162,4,169,O,160 
656 data204,133,250,132,251,169, O, 160 


Checksum 


REGEL 

10 

31 

REGEL 

355 

164 

REGEL 

20 

92 

REGEL 

360 

194 

REGEL 

30 

82 

REGEL 

365 

37 

REGEL 

100 

141 

REGEL 

370 

71 

REGEL 

110 

33 

REGEL 

372 

184 

REGEL 

120 

70 

REGEL 

374 

41 

REGEL 

130 

211 

REGEL 

376 

24 

REGEL 

140 

210 

REGEL 

378 

229 

REGEL 

150 

136 

REGEL 

379 

232 

REGEL 

160 

35 

REGEL 

380 

227 

REGEL 

170 

221 

REGEL 

382 

57 

REGEL 

180 

206 

REGEL 

384 

194 

REGEL 

190 

14 

REGEL 

385 

143 

REGEL 

195 

193 

REGEL 

386 

2 

REGEL 

197 

121 

REGEL 

390 

194 

REGEL 

200 

116 

REGEL 

400 

233 

REGEL 

205 

212 

REGEL 

410 

85 

REGEL 

210 

237 

REGEL 

420 

199 

REGEL 

215 

2 

REGEL 

430 

127 

REGEL 

220 

153 

REGEL 

440 

195 

REGEL 

225 

68 

REGEL 

450 

189 

REGEL 

230 

5 

REGEL 

460 

142 

REGEL 

235 

170 

REGEL 

499 

99 

REGEL 

240 

187 

REGEL 

500 

35 

REGEL 

245 

77 

REGEL 

502 

239 

REGEL 

250 

68 

REGEL 

504 

242 

REGEL 

255 

140 

REGEL 

506 

28 

REGEL 

260 

200 

REGEL 

508 

15 

REGEL 

265 

204 

REGEL 

510 

176 

REGEL 

270 

40 

REGEL 

512 

235 

REGEL 

275 

71 

REGEL 

514 

68 

REGEL 

280 

224 

REGEL 

516 

126 

REGEL 

285 

18 

REGEL 

518 

17 

REGEL 

290 

23 

REGEL 

520 

231 

REGEL 

295 

11 

REGEL 

522 

175 

REGEL 

300 

178 

REGEL 

524 

168 

REGEL 

305 

139 

REGEL 

526 

21 

REGEL 

310 

109 

REGEL 

528 

41 

REGEL 

315 

117 

REGEL 

530 

223 

REGEL 

320 

185 

REGEL 

532 

169 

REGEL 

330 

201 

REGEL 

534 

82 

REGEL 

335 

2 50 

REGEL 

536 

17 

REGEL 

340 

24 6 

REGEL 

538 

237 

REGEL 

345 

75 

REGEL 

540 

15 

REGEL 

350 

85 

REGEL 

542 

130 


658 data208,133,252,132,253,160,0,177 
660 data250,145,252,200,208,249, 230,251 
662 data230,253,202,208,240,169,55,133 
664 datal,169,1,141,14,220,88,96 
666 data234,162,96,169,8,157,O,212 
668 data232,224,128,208,246,169, 0,160 
670 data204,133,250,132,251,162,0,160 
672 dataO,189,O,202,24,41,240,106 
674 datal06,106,106,157,0,212,189, O 
676 data202,41,15,133,2,240,19,160 
678 dataO,177,250,24,42,145,250,200 
680 datal92,8,208,245,198,2,165,2 

682 data208,237,24,165,250,105,8,133 
684 data250,165,251,105,O, 133,251,232 

686 data224,96,208,195,96,234,234 

687 rem data gedeelte b: 

688 datall3,113,113,113,113,113, 98,113 
690 datall3,82,98,113,82,129,113, 113 
692 datall3,113,113,113,113,113,113,129 
694 datall3,113,113,97,128,97,113,113 
696 data80,82,113,128,113,113,113, 98, 82 
698 data82,128,113, 82,113,82, 129, 113 
700 datall3,113,113,113,113,113,113,113 
702 datall3,82,81,113,113,113,113,128 
704 datall3,113,113,113,113,113,113,113 
706 data82,113,113,113,129,113,113,113 
708 datall3,113,113,113,113,113,129,113 

710 datal13,113,128,128,128,128,128 

711 rem gedeelte c 

712 datal69,27,141,17,208, 169,21,141,24 

713 data208,169,151,141,0,221,169, 4,141 

714 datal36,2, 96 

** EINDE LISTING propschrift _ 


Propschrift 


REGEL 

544 

2 

REGEL 

634 

88 

REGEL 

546 

76 

REGEL 

636 

8 

REGEL 

548 

26 

REGEL 

638 

142 

REGEL 

550 

36 

REGEL 

640 

143 

REGEL 

552 

152 

REGEL 

642 

175 

REGEL 

554 

209 

REGEL 

644 

76 

REGEL 

556 

231 

REGEL 

646 

16 

REGEL 

558 

200 

REGEL 

648 

20 

REGEL 

560 

43 

REGEL 

650 

119 

REGEL 

562 

237 

REGEL 

652 

233 

REGEL 

564 

220 

REGEL 

654 

125 

REGEL 

566 

90 

REGEL 

656 

16 

REGEL 

568 

146 

REGEL 

658 

23 

REGEL 

570 

21 

REGEL 

660 

121 

REGEL 

572 

84 

REGEL 

662 

75 

REGEL 

574 

236 

REGEL 

664 

39 

REGEL 

576 

31 

REGEL 

66 6 

146 

REGEL 

578 

44 

REGEL 

668 

30 

REGEL 

580 

69 

REGEL 

670 

9 

REGEL 

582 

4 

REGEL 

672 

69 

REGEL 

584 

76 

REGEL 

674 

176 

REGEL 

586 

131 

REGEL 

676 

118 

REGEL 

588 

77 

REGEL 

678 

172 

REGEL 

590 

215 

REGEL 

680 

98 

REGEL 

592 

30 

REGEL 

682 

235 

REGEL 

594 

37 

REGEL 

684 

14 

REGEL 

596 

174 

REGEL 

686 

108 

REGEL 

598 

33 

REGEL 

687 

100 

REGEL 

600 

179 

REGEL 

688 

59 

REGEL 

602 

190 

REGEL 

690 

236 

REGEL 

604 

126 

REGEL 

692 

102 

REGEL 

606 

183 

REGEL 

694 

27 

REGEL 

608 

55 

REGEL 

696 

127 

REGEL 

610 

36 

REGEL 

698 

235 

REGEL 

612 

24 

REGEL 

700 

95 

REGEL 

614 

135 

REGEL 

702 

14 

REGEL 

616 

182 

REGEL 

704 

95 

REGEL 

618 

184 

REGEL 

706 

59 

REGEL 

620 

152 

REGEL 

708 

102 

REGEL 

622 

86 

REGEL 

710 

188 

REGEL 

624 

181 

REGEL 

711 

17 

REGEL 

62 6 

185 

REGEL 

712 

131 

REGEL 

628 

79 

REGEL 

713 

121 

REGEL 

630 

202 

REGEL 

714 

2 

REGEL 

632 

88 
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[CTRL-9][CTRL-6][SPACE]5[SPACE][CT 
RL 0][CTRL-5][SPACE]-[SPACE]Uitleg 
[SPACE][CRSR-DOWN]" 
printspc(8)"[CTRL-9][CTRL-6][SPACE 
]6[SPACE] [CTRL-0] [SPACE]-[SPACE]St 
oppen[2xCRSR-D0WN]" 

printspc(4)"[CTRL-9][COM-7][SPACE] 
Tik[SPACE]het[SPACE]nummer[SPACE]v 
an[SPACE]uw[SPACE]keuze...[SPACE]" 
getkz$:ifkz$=" n thenl90 
kz=val(kz$):ifkz<lorkz>6thenl90 
ifkz=6thenprint"[SHIFT-CLR] M :end 
ifkz=5thengosub740:gotol30 


Ook deze inzender heeft reeds de nodige program¬ 
ma’s ontworpen. De Heer Y.S. Kasmin uit Amster¬ 
dam. Het is een rekenprogramma waarbij een loco¬ 
motief een hoofdrol speelt. Het is een 
rekenprogramma waarbij de moeilijkheidsgraad kan 
worden ingesteld. Door de grafische beelden bij dit 
geheel gaat het niet zo snel vervelen. 
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rem ********** a'dam-oost ******** 
gosub850:rem ****sprite-inlezen 
poke53280,5:poke53281,7:print”[SHI 
FT CLR]"spc(7)"[3xCRSR-DOWN][CTRL 
9][COM-1][SPACE]r[SPACE]e[SPACE]k[ 
SPACE]e[SPACE]n[SPACE]-[SPACE]m[SP 
ACE]o[SPACE]t[SPACE]i[SPACE]e[SPAC 
E]f[SPACE] [CTRL-0]" 

printchr$(142):printspc(16)"[CRSR- 
DOWN] [COM-2]door[CRSR-DOWN]":print 
spc(13)"[CTRL-7]y.s.kasmin[2xCRSR- 
DOWN]" 

printspc(9)"[2xSPACE][COM-4]a'dam- 
oost[SPACE]1988":printspc(7)"[3xCR 
SR-DOWN][CTRL-5]»[SPACE]toets[SPA 
CE]willekeurig[SPACE]«" 
geta$:ifa$=""then50 
si=54272:en=5:openl,0:print"[SHIFT 
CLR]"chr$(8)chr$(14) 
z$="[CTRL-9][CTRL-3][2xCOM-U][CRSR 
-DOWN][3xCRSR-LEFT][4xSPACE][CRSR- 
DOWN] [5xCRSR-LEFT][6xSPACE][CRSR-D 
OWN] [7 xCRSR-LEFT] [2xSPACE] [CTRL-6] 
[2xSPACE][CTRL-3][SPACE][CTRL-2][S 
PACE][CTRL-3][2xSPACE][CRSR-DOWN][ 

8xCRSR-LEFT][2xSPACE][CTRL-6][2xSP 
ACE][CTRL-3][4xSPACE][CRSR-DOWN][8 
xCRSR-LEFT]" 

zl$="[2xSPACE][CTRL-6][2xSPACE][CT 
RL 3][4xSPACE][CRSR-DOWN][9xCRSR-L 
EFT][COM-8][CTRL-9][COM-1][COM-Q][ 
COM-W][COM-Q][COM-W][COM-Q][COM-W] 
[COM-Q][COM-W][COM-Q][COM-W]":x=24 
fori=sitosi+24 rpokesi,0:next:pokes 
i+24,15:pokesi,86:pokesi+6,240 
rem ******************************* 
rem *************menu************** 
rem ******************************* 
print"[SHIFT-CLR]":poke53280,4:pok 
e53281,7:poke646,6:printspc(10)"[C 
TRL 9][CTRL-1][SPACE]S[SPACE]P[SPA 
CE]E[SPACE]L-M[SPACE]E[SPACE]N[SPA 
CE]U[SPACE] [CTRL-0] [2xCRSR-DOWN]" 
printspc(8)"[CTRL-9][CTRL-6][SPACE 
]1[SPACE] [CTRL-0] [CTRL-7][SPACE]-[ 
SPACE] Vermenigvuldigen [CRSR-DOWN] " 
printspc(8)"[CTRL-9][CTRL-6][SPACE 
]2[SPACE] [CTRL-0] [COM-2][SPACE]-[S 
PACE]Delen":print:printspc(8)"[CTR 
L 9][CTRL-6][SPACE]3[SPACE] [CTRL-0 
][CTRL-1][SPACE]-[SPACE]Optellen[C 
RSR-DOWN]" 

printspc(8)"[CTRL-9][CTRL-6][SPACE 
]4[SPACE] [CTRL-0] [COM-3][SPACE]-[S 
PACE]Aftrekken":print:printtab(8)" 


poke53280,0:poke53281,0:print"[SHI 
FT CLR][3xCRSR-DOWN]"tab(7)"[CTRL 
2]Gee f[SPACE]het[SPACE]maximuum... 
";:input#l, s 

rem ****************************** 

rem *******random getallen******** 

print"[SHIFT-CLR]"" 

a=int(rnd(0)*s)+1:b=int(rnd(0)*s)+ 

l:t$="=[SPACE]" 

ifkz=lthenga=a*b:rt$="X" 

ifkz=2thenga=a/b:rt$=":" 

ifkz=3thenga=a+b:rt$="+" 

ifkz=4thenga=a-b:rt$="-" 

return 

rem ****************************** 
rem *********scherm-opmaak******** 
print"[CTRL-8][3xCRSR-DOWN][3xCRSR 
-RIGHT]SCHERM[SHIFT-SPACE]WORDT[SH 
IFT SPACE]EVEN[SHIFT-SPACE]UITGESC 
HAKELD":fori=0tol500:next:poke5326 
5 , 0 

print"[SHIFT-CLR]":fori=1024tol024 
+ (40*5)-1:cr=cr+l:poke55295+cr, 8:p 
okei,160:next 

poke211,5:poke214 ,2 :sys58 640 
print"[CTRL-9][CTRL-8][SPACE]SCORE 
:"sc;tab(24)"[CTRL-9][CTRL-8][SPAC 
E]ENERGIE:"en 
ifen=0thengoto680 




■ ■ 




fori=1664tol664+39:pokei,113+128:c 
r=cr+l:poke55736+cr,int(rnd(0)*15) 
+1:next 

poke211,34:poke214,9:sys58640:prin 
tz$+zl$:poke53269,1:poke53265,27:r 






rem ******************************* 
rem ********begin spel************* 
poke211,3:poke214,18:sys58640:prin 
t "[CTRL-6]Hoeveel[SPACE]is...:"a; 
rt$;b;t$; 
input#1,an 

ifan<>gathengosub530:gosub310:goto470 
ifan=gathengosub580:gosub310:goto470 
rem *******fout geantwoord******** 
poke211,10:poke214,20:sys58640:pri 
nt"[CTRL-9][CTRL-8][SPACE]fout!!!! 
[SPACE] [CTRL-0] ":en=en-l:ps=1500 
poke211,3:poke214,22:sys58640:prin 
t"[COM-2]Het[SPACE]goede[SPACE]ant 
woord[SPACE]was..:[CTRL-9][CTRL-6] 




3 

rem ** 

door 

** 

230 

gosub270:gosub370:gosub450:goto470 


4 

rem ** door: 

y.s.kasmin 

** 

240 

rem ****************************** 
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Checksum Reken-motief 


"ga:gosub410 

fori=0tops :next:fori=17to24:poke78 
1,i:sys59903:next:return 
rem ******antwoord is goed******** 
x=x+5:xl=x 


(xand256):v=53248:si=54 

272 

if x>255thenpokev+16,1 
i£x=279thengoto640 

pokev,xl:pokesi+4,17:fori=198to0st 
ep-3:pokesi+1,i:next:pokesi+4,0:sc 
=sc+5 

ps=0 :gosub560:gosub410:return 
rem *********cioel bereikt******** 
poke211,1:poke214,6:sys58640:print 
"[CTRL-9][COM-5][SPACE]GEFELICITEE 
RD[SHIFT-SPACE]HET[SHIFT-SPACE]STA 
TION[SPACE]IS[SPACE]BEREIKT[SPACE] 
[CTRL-0 ] 

printspc(9)"[CRSR-DOWN][CTRL-2]Toe 

ts[SPACE]willekeurig" 

getwk$:ifwk$=""then660 

sc=0 :en=5:pokev+16,0:pokev+21,0:pr 

int"[SHIFT-CLR]":closel:clr:goto 6 


EINDE LISTING reken-motief 


rem ******energie is op xxxxxxx 
poke211,5:poke214,6:sys58640 
print "[CTRL-9][CTRL-6][SPACE]H[SP 
ACE]E[SPACE]L[SPACE]A[SPACE]A[SPAC 
E]S[2xSPACE]JE[SPACE]ENERGIE[SPACE 
][CRSR-DOWN]":printtab(13)"[CTRL-9 
][CTRL-5][SPACE]IS[SPACE]OP[SPACE] 
[CTRL-0][CRSR-DOWN]" 

printtab(8)"[CTRL-7]Toets[SPACE]wi 
llekeurig" 

getwk$:ifwk$=""then720 
sc=0 :en=5:pokev+16,0:pokev+21,0:pr 
int"[SHIFT-CLR]":closel:clr:goto60 
fori=17to0step-l:poke781,i:sys5990 
3:foril=0to50 rnextil,i:poke53280,0 
poke53281,0:print"[HOME]"spc(12)"[ 
CTRL-9][CTRL-8][SPACE]U[SPACE]I[SH 
IFT SPACE]T[SHIFT-SPACE]L[SHIFT-SP 
ACE]E[SHIFT-SPACE]G[SPACE][ CTRL-0 ] 

[2xCRSR-D0WN]":poke646,5 
printspc(2)"1.[SPACE]Kies[SPACE]ui 
t[SPACE]het[SPACE]MENU.[CRSR-DOWN] 
":printspc(2) M 2.[SPACE] 
print"Probeer[SPACE]bij[SPACE]elke 
[SPACE]som,[SPACE]een[SPACE]goed[S 
PACE]an[SPACE]-[5xSPACE]twoord[SPA 
CE]te[SPACE]geven[SPACE]zodat[SPAC 


print"de[SPACE][CTRL-3]LOCOMOTIEF[ 
CTRL-6][5xSPACE]het[SPACE]station[ 
SPACE]kan[SPACE]bereiken.[CRSR-DOW 


printspc(2)"3.[SPACE]Een[SPACE]goe 
d[SPACE]antwoord[SPACE]wordt[SPACE 
]beloond[SPACE]met[5xSPACE]5[SPACE 
]punten.[CRSR-DOWN]" 

printspc(2)"4.[SPACE]Bij[SPACE]een 
[SPACE]foute[SPACE]antwoord[SPACE] 
verlies[SPACE]je[7xSPACE]een[SPACE 
]energie.[2xCRSR-DOWN]" 
printspc(5)"[CTRL-2]Druk[SPACE]na[ 
SPACE]elk[SPACE]gegeven[SPACE]antw 
oord[SPACE]op...[15xSPACE][2xCRSR- 
DOWN][CTRL-9][CTRL-8][SPACE]RETURN 
[SHIFT-SPACE]" 

printspc(7)"[2xCRSR-D0WN]Toets[SPA 
CE] willekeurig." 
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Dit programma van Bart Koop en Ronalt Aalmoes uit 
Schagen genereert de telefoon beltonen. Wanneer 
men nog een puls telefoon heeft, en men houd de 
hoorn bij de luidspreker, dan kan men via de toet¬ 
senbord van de commodore 64 bellen. Het program¬ 
ma kan ook uit geos opgeroepen worden. Het test 
zelf of dit programma aanwezig is. 


if tt<>8718 then print chr$(17) ; "7 
data[SPACE]error";chr$(145):poke 7 
88,49:end 


. 


door: bart koop, schagen 
(c) 1988 bakosoft 


print chr$(147);chr$(17);chr$(29); 
chr$(29);"tone[SPACE]dial[SPACE]em 
ulator[SPACE]v2.5" 

print chr$(17);chr$(29);chr$(29);" 
(c)[SPACE]1988[SPACE]bakosoft" 
print chr$(17);chr$(17);chr$(29);c 
hr$(29);"#[SPACE]=[SPACE][return]" 
print chr$(17);chr$(17);chr$(29);c 
hr$(29);"naar[SPACE]een[SPACE]idee 
[SPACE]van[SPACE]bart[SPACE]koop" 
print chr$(17);chr$(29);chr$(29);" 
c-6 4[SPACE]versie[SPACE] :bart[SPAC 
E]koop" 

print chr$(17);chr$(29);chr$(29);" 
amiga[SPACE]versie:roalt[SPACE]aal 
moes" 

print chr$(17);chr$(17);chr$(29) ;c 
hr$(29);"runstop/restore[SPACE]voo 
r[SPACE]einde" 


poke 53280, 0:poke 53281,0:poke 646 
,13:print chr$(147)"even[SPACE]ged 
uld[SPACE]aub[SPACE].[SPACE].[SPACE] 


if peek (49152) 076 or peek (49153) < 
>16 goto83 

print chr$(17);chr$(29);chr$(29);" 
[c=][SPACE]g[SPACE]=[SPACE]terug[S 
PACE]naar[SPACE]geos" 


rem — minimum duur toon 
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Checksum Wisser 


Ruimterace 


108 goto 83 

109 : 

110 if peek(49152)<>76 or peek(49153)< 
>16 goto 83 

111 : 

112 rem — terug naar desktop — 

113 : 

114 svsl6384 


EINDE LISTING wisser 


EINDE LISTING tone dial 


n uit Almelo dacht, ach schiet/race spelletjes zijn 
nooit weg, en stuurde er een aantal in. Hierbij plaat¬ 
sen we er één van. Elke uitleg is eigenlijk overbodig, 
het wijst zichzelf dus, vee! succes. 


print"[SHIFT-CLR]":poke53280, 0:pok 
e53281,0 

print"[25xCRSR-DOWN]" 

print"[CTRL-2][4xSPACE]QQ[3xSPACE] 

QQ[3xSPACE]QQQ[3xSPACE]QQQQQQ[2xSP 
ACE]QQQQQQQ 

print"[COM-8][4xSPACE]QQ[3xSPACE]Q 
Q[2xSPACE]QQQQQ[2xSPACE}QQQQQQQ[SP 
ACE]QQQQQQQ 

print"[COM-5][4xSPACE]QQ[6xSPACE]Q 
Q[3xSPACE]QQ[SPACE]QQ[3xSPACE]QQ 
print"[COM-4][4xSPACE]QQQQ[SPACE]Q 
Q[SPACE]QQ[3xSPACE]QQ[SPACE]QQ[SPA 
CE]Q[SPACE]QQ[SPACE]QQQQQQQ 
print"[COM-5][4xSPACE]QQQQ[SPACE]Q 
Q[SPACE]QQ[3xSPACE]QQ[SPACE]QQ[SPA 
CE]Q[SPACE]QQ[SPACE]QQQ 
print"[COM-8][4xSPACE]QQ[3xSPACE]Q 
Q[2xSPACE]QQQQQ[2xSPACE]QQ[SPACE]Q 
[SPACE]QQ[SPACE]QQQQQQQ 
print"[CTRL-2][4xSPACE]QQ[3xSPACE] 

QQ[3xSPACE]QQQ[3xSPACE]QQ[SPACE]Q[ 
SPACE]QQ[SPACE]QQQQQQQ 

print"[COM-6][CRSR-DOWN][18xSPACE]soft 

print"[6xCRSR-DOWN] 

foroo=lto4000:next 

forll=lto25 

print"[CRSR-DOWN]" 

nextll 

goto780 

tt=0:t=0:gg=0: print"[SHIFT-CLR]" 
printchr$(14) 

print"[CTRL-2][SPACE]************* 

'kic'k'k'k'k'k'k'k’k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

print" [4xSPACE] Ruimte [2xSPACE] Race 
:print"[2xSPACE]SC=";sc;:print"[ 
SPACE]HI=";hi 

print"[SPACE]********************* 

print"[CTRL-8][CRSR-DOWN][llxSPACE 
]Keuze[SPACE]uit" 
print"[llxSPACE][9xCOM-Y]" 
print"[CTRL-4]-Beweeg[SPACE]joysti 
ck[SPACE]naar[SPACE]BOVEN[SPACE]vo 
or[SPACE]een[SPACE]gem[SPACE]akeli 
jk[SPACE]spel. 

print"-Beweeg[SPACE]joystick[SPACE 
]naar[SPACE]LINKS[SPACE]voor[SPACE 
]een[SPACE]nor[SPACE]maal[SPACE]spel." 
print"-Beweeg[SPACE]joystick[SPACE 
]naar[SPACE]RECHTS[SPACE]voor[SPAC 


D. de wijn uit Belgie heeft een korte routine geschre 
ven die het scherm op zo’n leuke manier schoon 
maakt dat we U deze toch niet willen onthouden. 


rem wisser - dewijn dieter 
fora=1024to2023:pokea,100:next 
forb=1024to2023:pokeb,111:next 
£orc=1024to2023 rpokec,121:next 
ford=1024to2023 rpoked,248:next 
fore=1024to2023:pokee,247:next 
forh=1024to2023:pokeh,227:next 
forf=1024to2023:pokef,160:next 


Checksum Tone dial 

REGEL 

1 

231 

REGEL 

58 

50 

REGEL 

2 

67 

REGEL 

59 

153 

REGEL 

3 

56 

REGEL 

60 

205 

REGEL 

4 

10 

REGEL 

61 

58 

REGEL 

5 

58 

REGEL 

62 

51 

REGEL 

6 

54 

REGEL 

63 

58 

REGEL 

7 

58 

REGEL 

64 

73 

REGEL 

8 

159 

REGEL 

65 

58 

REGEL 

9 

75 

REGEL 

66 

91 

REGEL 

10 

58 

REGEL 

67 

58 

REGEL 

11 

19 

REGEL 

68 

167 

REGEL 

12 

58 

REGEL 

69 

219 

REGEL 

13 

8 

REGEL 

70 

199 

REGEL 

14 

58 

REGEL 

71 

39 

REGEL 

15 

119 

REGEL 

72 

88 

REGEL 

16 

128 

REGEL 

73 

255 

REGEL 

17 

68 

REGEL 

74 

8 

REGEL 

18 

58 

REGEL 

75 

58 

REGEL 

19 

145 

REGEL 

76 

6 

REGEL 

20 

139 

REGEL 

77 

58 

REGEL 

21 

58 

REGEL 

78 

252 

REGEL 

22 

111 

REGEL 

79 

167 

REGEL 

23 

170 

REGEL 

80 

58 

REGEL 

24 

171 

REGEL 

81 

179 

REGEL 

25 

126 

REGEL 

82 

58 

REGEL 

26 

116 

REGEL 

83 

227 

REGEL 

27 

119 

REGEL 

84 

58 

REGEL 

28 

131 

REGEL 

85 

89 

REGEL 

29 

166 

REGEL 

86 

58 

REGEL 

30 

167 

REGEL 

87 

88 

REGEL 

31 

172 

REGEL 

88 

58 

REGEL 

32 

118 

REGEL 

89 

164 

REGEL 

33 

65 

REGEL 

90 

58 

REGEL 

34 

160 

REGEL 

91 

68 

REGEL 

35 

116 

REGEL 

92 

46 

REGEL 

36 

163 

REGEL 

93 

58 

REGEL 

37 

105 

REGEL 

94 

223 

REGEL 

38 

58 

REGEL 

95 

58 

REGEL 

39 

195 

REGEL 

96 

198 

REGEL 

40 

28 

REGEL 

97 

58 

REGEL 

41 

58 

REGEL 

98 

74 

REGEL 

42 

209 

REGEL 

99 

58 

REGEL 

43 

58 

REGEL 

100 

201 

REGEL 

44 

22 

REGEL 

101 

58 

REGEL 

45 

58 

REGEL 

102 

201 

REGEL 

46 

240 

REGEL 

103 

58 

REGEL 

47 

121 

REGEL 

104 

100 

REGEL 

48 

150 

REGEL 

105 

58 

REGEL 

49 

108 

REGEL 

106 

174 

REGEL 

50 

205 

REGEL 

107 

58 

REGEL 

51 

58 

REGEL 

108 

244 

REGEL 

52 

133 

REGEL 

109 

58 

REGEL 

53 

58 

REGEL 

110 

252 

REGEL 

54 

214 

REGEL 

111 

58 

REGEL 

55 

58 

REGEL 

112 

6 

REGEL 

56 

67 

REGEL 

113 

58 

REGEL 

57 

58 

REGEL 

114 

164 

Wissen 































260 


270 


280 


290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

625 

630 

640 

645 

650 

660 

665 

670 

680 

690 

700 

710 

720 

730 

740 


E]een[SPACE]ex[SPACE]pert[SPACE]spel." 
print"-BEweeg[SPACE]j oystick[SPACE 
]naar[SPACE]BENEDEN[SPACE]voor[SPA 
CE] HI=0 " 

print"-Druk[SPACE]op[SPACE]FIRE[SP 

ACE]voor[SPACE]stoppen." 

print"[COM-1][CRSR-DOWN][3xSPACE]* 

*[SPACE]De[SPACE]besturing[SPACE]s 
pel[SPACE]**" 

print"[3xSPACE]**[SPACE]Joystick[S 
PACE]poort[SPACE]2[SPACE]* *" 
print"[CTRL-1][2xCRSR-DOWN][COM-7]" 
fora=ltol000 :next 
p=peek (56320) 

ifp=126thena=a-40: sc=0 :gg=gg+l:pri 
nt"[SHIFT-CLR]":goto430 
ifp=125thena=a+40: hi=0 :gotolöO 
ifp=123thena=a-l: sc=0 :gg=gg+2:prin 
t"[SHIFT-CLR]":goto430 
ifp=119thena=a+l: sc=0 :gg=gg+3:prin 
t"[SHIFT-CLR]":goto430 
ifp=lllthengoto960 
goto320 
hi=0 :gotolöO 

r*»m ******************************* 


rem 

rem 

rem 


Spel **^ 

******************************* 


**** 


print"[SHIFT-CLR]" 

foro=lto300:poke54296,tt 

z=1244:pokel984,42:poke2023,42:pok 

e56256,10:poke56295,10 

gosub590 

ifpeek(z+x)=42thent=t+l:gosub710 

j=peek(56320) 

ifj=119thenx=x+l 

if j=123thenx=x-l 

pokez+x,160 

poke55516+x, 7 

sc=sc+2:tt=tt+l 

iftt=>15thentt=15 

nexto 

gg=gg+l 

ifgg=4then900 

goto440 

ifgg=lthen620 

ifgg=2then640 

ifgg=3then660 

q=int(rnd(1)*38)rprinttab(q)"[CTRL 
2][CRSR-RIGHT]*" 

q=int(rnd(1)*38)rprinttab(q)"[CTRL 

2][CRSR-ÜP][CRSR-RIGHT]*" 

return 

q=int(rnd(1)*37) rprinttab(q)"[CTRL 
2][CRSR-RIGHT]**" 

q=int(rnd(1)*37) rprinttab(q)"[CTRL 
2][CRSR-UP][CRSR-RIGHT]**" 
return 

q=int(rnd(1)*36)rprinttab(q)"[CTRL 
7][CRSR-RIGHT]***" 

q=int(rnd(1)*36)rprinttab(q)"[CTRL 
7][CRSR-UP][CRSR-RIGHT]***" 
return 

rem ****************************** 
rem *** geluid ** 

rem ****************************** 
tt=0 :poke53281,2:poke53280,0 
v=54296rw=5427 6ra=54277 rh=54273 r1= 
54272 

forx=15to0step-lrpokev,x rpokew,129 
rpokea,15 rpokeh,40 rpokel,200:next 
pokew,0 rpokea, 0 


*** geluid ** 

****************************** 


* * ★ 


750 poke53281,0:ifsc>hithenhi=sc 

760 ift=3thenl60 
770 return 

780 forl=54272to54296 rpokel,0:next 

790 poke54296,0 

800 poke54277,190;poke54278,248 

810 P oke54284,190: P oke54285,248 

820 poke54291,190:poke54292,248 

830 s=54276 

840 pokes,33:pokes+7,33:pokes+14,33 

850 pokes-3,5rpokes-4,1 

860 pokes+4,5:pokes+3 , 2 

870 pokes+11,5rpokes+10, 3 

880 gotolöO 

890 remr 

900 forww=ltol00 

910 print"[HOME][COM-3][llxCRSR-DOWN][ 
14xSPACE]bonus[SPACE]1000 
920 print"[HOME][llxCRSR-DOWN][39xSPACE] 
930 nextww 

940 print"[HOME][25xCRSR-DOWN]" 

950 sc=sc+1000:gg=3rgoto440 

960 printchr$(142) rprint"[SHIFT-CLR]"r 
poke53280,0:poke53281,0 
970 print"[CTRL-4][9xCRSR-DOWN][12xSPA 
CE]home[SPACE]soft[SPACE]1988." 

** EINDE LISTING ruimterace 


Checksum Ruimterace 


REGEL 

10 

207 

REGEL 

530 

209 

REGEL 

20 

134 

REGEL 

540 

99 

REGEL 

30 

20 

REGEL 

550 

209 

REGEL 

40 

29 

REGEL 

560 

169 

REGEL 

50 

125 

REGEL 

570 

63 

REGEL 

60 

72 

REGEL 

580 

33 

REGEL 

70 

5 

REGEL 

590 

59 

REGEL 

80 

123 

REGEL 

600 

62 

REGEL 

90 

67 

REGEL 

610 

65 

REGEL 

100 

161 

REGEL 

620 

221 

REGEL 

110 

33 

REGEL 

625 

110 

REGEL 

120 

38 

REGEL 

630 

142 

REGEL 

130 

7 

REGEL 

640 

6 

REGEL 

140 

238 

REGEL 

645 

151 

REGEL 

150 

26 

REGEL 

650 

142 

REGEL 

155 

40 

REGEL 

660 

73 

REGEL 

160 

78 

REGEL 

665 

218 

REGEL 

170 

22 

REGEL 

670 

142 

REGEL 

180 

252 

REGEL 

680 

123 

REGEL 

190 

176 

REGEL 

690 

69 

REGEL 

200 

247 

REGEL 

700 

123 

REGEL 

210 

130 

REGEL 

710 

235 

REGEL 

220 

76 

REGEL 

720 

8 

REGEL 

230 

150 

REGEL 

730 

201 

REGEL 

240 

86 

REGEL 

740 

184 

REGEL 

250 

236 

REGEL 

750 

19 

REGEL 

260 

0 

REGEL 

760 

2 

REGEL 

270 

34 

REGEL 

770 

142 

REGEL 

280 

7 

REGEL 

780 

102 

REGEL 

290 

59 

REGEL 

790 

253 

REGEL 

300 

41 

REGEL 

800 

11 

REGEL 

310 

198 

REGEL 

810 

7 

REGEL 

320 

21 

REGEL 

820 

3 

REGEL 

330 

169 

REGEL 

830 

13 

REGEL 

340 

21 

REGEL 

840 

216 

REGEL 

350 

116 

REGEL 

850 

137 

REGEL 

360 

121 

REGEL 

860 

136 

REGEL 

370 

239 

REGEL 

87 0 

229 

REGEL 

380 

30 

REGEL 

880 

32 

REGEL 

390 

205 

REGEL 

890 

201 

REGEL 

400 

165 

REGEL 

900 

71 

REGEL 

410 

19 

REGEL 

910 

103 

REGEL 

420 

165 

REGEL 

920 

171 

REGEL 

430 

112 

REGEL 

930 

48 

REGEL 

440 

153 

REGEL 

940 

153 

REGEL 

450 

9 

REGEL 

950 

81 

REGEL 

460 

43 

REGEL 

960 

81 

REGEL 

470 

77 

REGEL 

970 

130 

REGEL 

480 

15 




REGEL 

490 

6 




REGEL 

500 

2 




REGEL 

510 

182 




REGEL 

520 

2 













































































































Commodore 


Zoals we gewend zijn, heeft Rob Goudriaan weer een aantal games opgedoken, die 
een paar jaar geleden nieuw waren. Sommige zijn ten onrechte vergeten, andere 
komen nu weer in de belangstelling. 

Oud van Goudriaan 


Hidius Bill 

Eindelijk weer eens een goed dool- 
hofspel. Er zijn zeer vele liefhebbers 
voor dit genre. Jammer dat er van dit 
soort spelen tegenwoordig weinig 
meer uitkomt. Het is schijnbaar lucra¬ 
tiever om schiet- en simulatiespelen 
te maken. In dit doolhofspel is het de 


bedoeling dat je je grote liefde Greta 
probeert te redden. Voordat je haar in 
de armen kunt sluiten moet er nog 
heel wat werk worden verzet. Zo kom 
je op het eerste level een gigantische 
hoeveel eieren tegen die allemaal 
verzameld moeten worden voor je 
verder kunt. Natuurlijk lukt dit niet zo 
maar, er zijn altijd wel figuren die je 
dat proberen te verhinderen. In dit 
spel lopen er reuzehazen rond. Deze 
zijn niet alleen enorm groot maar het 
kost je ook een leven als ze je per on¬ 
geluk te pakken krijgen. Gelukkig 
hoef je niet met lege handen tegen 
hen in het strijdperk te treden, her en 
der liggen er wapens. Goed opletten 
en de juiste middelen pakken om dit 
eerste niveau te kunnen overleven. 
Aan de zijkanten zijn er uitgangen. 
Hoewel..., uitgangen: ga je er links uit, 


dan kom je rechts weer in en ander¬ 
som natuurlijk ook. Zijn alle eieren 
verzameld dan ga je pas door naar 
het volgende level. Hier blijken er 
geen wapens tegen de hazen. In het 
centrum staat een blikje bonen. Dit is 
absoluut nodig om naar het derde le¬ 
vel te kunnen. Om deuren te kunnen 


openen moeten er verschillende han¬ 
dels omgezet worden anders kun je 
niet bij het blik bonen komen. De 
gangpaden moeten weer opgeruimd 
worden. Zodra alles leeg is ga je naar 
het derde en laatste level. Hiervan¬ 
daan kun je je geliefde al zien maar 
voor je haar in je armen kunt nemen 
moeten er nog een aantal hinder¬ 
nissen genomen worden. En zoals 
het hoort, de laatste loodjes wegen 
het zwaarst. Maar na alle moeite die 
je gedaan hebt kun je een vreugde¬ 
dansje gaan maken. 

Dit spel is niet zo heel erg moeilijk 
voor de zeer gevorderde spelfanaten, 
maar voor de kleine beginner - en die 
zijn er tenslotte ook - is dit een aardig 
spel om te oefenen voor je aan het 
grotere werk te wagen. 


Elidon 

Een sprookje, zo kunnen we dit spel 
uit de oude doos het beste vertalen. 
Letterlijk maar ook figuurlijk. De 
hoofdfiguren zijn zo uit het grote 
sprookjesbos gehaald en neergeplant 
in dit verhaal. 

Ergens diep in het grote bos groeien 
zeven bloemen van Finvarra. Van 
deze zeven bloemen moet een kroon 
gemaakt worden voor de lieftallige el- 
fen-koningin. Iedere bloem heeft een 
eigen toverdrank nodig om in leven te 
blijven. Als je dus met het elfje door 
het onmetelijke bos zweeft weet je 
wat je te doen staat. Je zult merken 
dat je pad niet altijd over zachte mo¬ 
spaadjes gaat: achter iedere boom of 
struik wachten nieuwe gevaren. Enge 
boomgeesten liggen op de loer om je 
taak moeilijk te maken, zo niet onmo¬ 
gelijk. Zij willen niets liever dan het bij¬ 
zondere stuifmeel vernietigen. Pas 
dus goed op dat je niet te ver het bos 
ingaat en verdwaald. Het zonlicht kan 
hier niet doordringen, en het is er dan 
ook aardedonker. Dit is niet alleen 
lastig, maar voor kleine elfjes zeer be¬ 
angstigend. De opdracht lijkt einde¬ 
loos lang te duren, maar verlies niet al 
te gauw de moed. Lukt het na veel 
proberen eindelijk om je missie te vol¬ 
tooien dan is niet alleen de winter 
voorgoed verdwenen maar zijn ook 
de elfjes gered. En zeg nou zelf: wat 
zou een bos zijn zonder elfjes. 

Big Deal 

Van onze grootste nederlandse soft- 
waremakers Radarsoft is het spel 
"Big Deal". Het is een spel dat al en¬ 
kele jaren geleden op de markt is ge¬ 
bracht, maar nu weer in de belang¬ 
stelling staat. Ook hebben we hier en 
daar al een Amiga versie gezien. In 
het spel zitten twee uitvinders een 
hamburger zitten te eten. Hierbij ont¬ 
staat een plannetje om een 
computergestuurde robot te maken 
die alle handelingen kan verrichten 
die in een snackbar moeten worden 
uitgevoerd. Dit varieerd van het grillen 
en frituren, broodjes maken, milksha- 
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kes en cola inschenken, tot het ma¬ 
ken van pizza’s. Dit automatiseren 
kan grote voordelen hebben. De 
wachttijd voor de klanten zal tot het 
minnimun beperkt blijven, en de kwa¬ 
liteit kan altijd goed zijn. De ontwer¬ 
pers van dit programma hebben ook 
een naam voor hem bedacht: Floyd 
heet het prototype en jij mag hem be¬ 
sturen. 

Voldoe je aan je opdracht dan worden 
er ik-weet-niet-hoeveel van deze 
Floyd’s besteld. Het is dus een hele 
verantwoording die je draagt. Omdat 
alles moet wennen heb je een week 
de tijd om je kunnen te tonen, maar 
eigenlijk moet Floyd dat doen. De 
werktijden zijn nu niet bepaald vrien¬ 
delijk te noemen van 9 uur s’morgens 
tot 9 uur s’avonds, maar een robot 
wordt natuurlijk niet zo gauw moe. 
Voor je aan het echte werk begint in- 
spekteer je eerst de keuken. Is alles 
oké, dan kan je beginnen. Zo lang er 
geen klanten zijn kun je het beste vast 
de recepten bekijken. Alles staat op 
nette lijsten die kan je oproepen. Maar 
al snel staat de eerste klant in de zaak 
en bestelt een broodje rosbief. Dat 
lijkt niet al te moeilijk: eerst een box 
pakken uit de kast, een broodje uit de 
koelkast, de rosbief even bewerken, 
alles in de box en deze op de lopende 
band. Zo, de eerste opdracht is vol¬ 
tooid, en als alles zo makkelijk gaat... 
Er blijkt alweer een nieuwe klant te 
wachten. Deze wil een milkshake, 
dus vlug een glas en de milkshake 
tappen en hup op de band. Een stuk 
moeilijker wordt het als er een derde 
klant een broodje gezond wil en een 


ook al binnen. Het moet allemaal 
steeds sneller, en het zweet komt fi¬ 
guurlijk op je voorhoofd te staan. Ge¬ 
lukkig is er voor noodgevallen een 
voorraadje haute-cuisine tv-dinner, 
die Floyd in zijn interne opbergkastje 
heeft staan. Deze is altijd goed om 
lastige klanten tevreden te stellen, 
want als je een friet met mayonaise 
hebt besteld zal je wel je mond hou¬ 
den als je zo iets voorgeschoteld krijgt 
(en zezeggen dan ook netjes: dank u 
wel). Duurt het allemaal te lang voor 
de klanten, dan loop je de kans dat ze 
met het meubilair gaan gooien. De ro¬ 
bot moet dan even gemaakt worden 
en is dan tijdelijk uit de roulatie. Dit 
duurt gelukkig niet lang en soms lukt 
het je ook om de vliegende voorwer¬ 
pen te ontwijken. Moe, maar voldaan, 
ben je dolblij als de eerste werkdag er 
op zit. Maar er wachten er nog een 
paar. En er word netjes geregistreerd 
hoeveel tevreden klanten er weg zijn 
gegaan. Bij de tweede en volgende 
dagen gaat het "misschien" beter. 
Maar blijf wel opletten, want niemand 
vind verbrande frietjes lekker. Ge¬ 
beurt dit toch, dan kun je het maar be¬ 
ter weggooien. Let wel op als je een 
bestelling op de band legt, dat het 
goede nummer op de lichtkrant brand 
anders is de klant niet tevreden en je 
weet wat dan de gevolgen zijn: min¬ 
stens twee ontevreden klanten. 

Heeft de zaak aan het eind van de 
week nog tevreden klanten ? Alles ligt 
aan jou en een beetje aan onze vriend 
Floyd. 
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Big deal 

Druid 

Jij, natuurlijk held van zovele spelle¬ 
tjes, de redder in nood, veroveraar 
van vele planeten, bezweerder van 
kwade spreuken en nog veel meer 
van dat. Je moet weer eens aantre¬ 
den, want er wordt een beroep op je 
gedaan. Een boze prinses heeft een 
vloek uitgesproken en overal om je 
heen huist nu het Grote Kwaad. In de 
gedaande van een middeleeuwse 
priester (een Druïde - denk maa aan 
Asterix) ga je dit kwaad bestrijden. 
Het spel begint in een verlaten, angst¬ 
aanjagend landschap. Zo op het eer¬ 
ste gezicht is er niets aan de hand, 
maar al gauw ontdek je het gevaar. 
Allerlei geestig gespuis komt op je af 
als vliegen op een pot stroop. Je staat 
gelukkig niet geheel met lege handen, 
want er staan diverse spreuken tot je 
beschikking, deze kan je afvuren op 
je vijanden, leder plaaggeest moet 
bestreden worden met zijn eigen wa¬ 
pens. De geesten die in eerste instan¬ 
tie op je afkomen zijn het beste te be¬ 
strijden met water. Vliegen zijn aller- 
gies voor vuur, etc. Maar helaas heb 
je geen oneindige voorraad spreuken. 
Op verschillende plaatsten staan ech¬ 
ter kisten, die de broodnodige voor¬ 
raad aanvullen. Ook zitten er in enke¬ 
le van deze kisten sleutels. Pak deze 
altijd want anders kom je niet ver. 


glas cola. Weer een nieuwe klant wil 
een big brunch en de vijfde klant komt 
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Deuren gaan nu eenmaal niet vanzelf 
open. Ook zijn er spreuken waarbij je 
onzichtbaar wordt, maar pas op want 
dat vreet energie. De meest fantasti¬ 
sche spreuk is een heel bijzondere 
"CHAOS". Watje je hierbij moet voor¬ 
stellen laat ik graag aan je eigen fan¬ 
tasie over, maar het is wel zeer han¬ 
dig als je even paniek wilt zaaien. Op 
enkele plaatsen zijn er energiebron¬ 
nen. Hier is de energievoorraad weer 
op pijl te brengen. Wat de juiste route 
is, is moeilijk te zeggen. Uitproberen 
is de beste remedie (net zo als welke 
tegenstander bij welke spreuk hoort). 
Het snel veranderen van de spreuken 
is dan wel een vereiste. Lastige 
tegenstanders zijn de Geest, de 
Siang, het Geraamte en de Duivel. 
Als toverspreuken heb je vuur, water 
en electriciteit. Kijk in iedere kist en 
haal er uit wat je nodig hebt. Maar pak 
niet meer dan noodzakelijk, want de 
teller gaat niet hoger dan 99. Kom je 
tot het einde van het spel - wat hele¬ 
maal niet mee zal vallen - dan krijg je 
een titel mee. De meest gerouti¬ 
neerde speler zal het tot heerser over 
het licht brengen, een zeer goede ge¬ 


middelde speler tot geesten¬ 
bezweerder of magiër. Maar wat ook 
al knap is, is het gewoon uitspelen 
van dit spel. Al is de titel van ‘half wit’ 
oftewel ‘halve gare’ nu niet bepaald 
complimenteus te noemen, laat je 
hierdoor niet weerhouden om dit spel 
te spelen want eenmaal begonnen 
kom je al gauw in de ban van de 
'DRUID'. 

The way of the Exploding West 

Voor de ware karateliefhebbers, en zij 
die van aktie houden, is er een pro¬ 
gramma waar ze hun tanden in kun¬ 
nen zetten. The way of exploding 
west’ is een spel met realistische 
beelden en een nog realistischer ge¬ 
luid. Jij bent één van de karatespe- 
lers, en je kunt tegen een tegen¬ 
stander of tegen de computer spelen. 
De bedoeling is natuurlijk om je te¬ 
genstander te verslaan. Om te kun¬ 
nen winnen moet je een hoger aantal 
punten halen dan je tegenstander. Dit 
doe je door een goede serie slagen 
en schoppen. Hiervoor krijg je dan 
een bepaalde hoeveelheid punten. 


Als je twee rondes hebt overleefd ga 
je naar een volgende "DAN". Er zijn 
vier Dan’s te verdienen, oplopend in 
zwaarte. De vierde Dan halen is niet 
onmogelijk maar zeker ook niet mak¬ 
kelijk. Speel je tegen de computer, 
dan speelt de tijd een belangrijke rol. 
Er zijn diverse stoten uit te voeren. Zo 
zijn er o.a. de flying kick en een voor¬ 
waartse salto met achterwaartse trap. 
Alles speelt zich af op verschillende 
scenes. Allereerst is er de klooster¬ 
tuin. Het tweede gevecht vindt plaats 
op het strand. Overleef je ook dit ge¬ 
vecht dan vervolg je het spel in de 
sportschool. Als laatste heb je de eer 
om op de binnenplaats van de tempel 
te vechten maar dit is niet voor iede¬ 
reen weggelegd. Een enkeling zal la¬ 
ter kunnen vertellen dat hij zijn eer op 
deze beroemde binnenplaats heeft 
kunnen verdedigen. Win je ook dit ge¬ 
vecht dan wacht een leuke verras¬ 
sing. Welke? Ja, dat ontdek je zelf 
maar. Speel het spel maar uit om daar 
achter te komen. 


DE NIEUWE 

SALASAN 

AMIGA 

CATALOGUS 
KOMT BINNENKORT UIT ! 

NU AL GRATIS AAN TE VRAGEN ! 
SALASAN POSTBUS 5570 
1007 AN AMSTERDAM 
TEL. 020-203219 . 

BESTEL NU 


DE GASSETTESPECIALIST 

A. Matthaeuslaan 19 - 3515 AN Utrecht - Tel: 030 - 731826 

Fax:030-710334 


Prijs is per 10 stuks excl. b.t.w. 

5 1/4" DS/DD48TPI 

White label. ƒ 7,25 

Nashua.ƒ 12,- 

Maxell.ƒ 19,- 

Goldring...ƒ 12,- 

Sony.ƒ18,- 

3M.ƒ 18,- 


5 1/4" DS/HD96 TPI 

Nashua . 

Maxell. 


ƒ 23,- 
ƒ34,- 


3 1/2" DS/DD 135 TPI 



Nashua. ƒ 23,50 

Maxell.ƒ 24,50 

TDK . ƒ 35,- 

Bulkpakking Sony .ƒ 35,- 

Goldring.ƒ 30, 

Sony. ƒ 35,- 

3M.ƒ 35,- 


Diskettebak 5V/ 3V ... ƒ 15,00 


Bestellingen boven ƒ 150,00 franko thuis. 
Bestellingen onder ƒ 150,00 verzendkosten ƒ 10,00 


BEL 

030-731826 


FAX 

030-710334 
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Een van de meest fascinerende aspecten van de Commodore 64, zijn de graphics. In 
de cursus Graphics zullen Michel de Boer en Hylke Sprangers stap voor stap de 
verschillende grafische mogelijkheden uitleggen. Deze aflevering gaat over karakters. 

Graphics op de 64 

Deel 1: de karakters 


D e Commodore 64 kent drie verschillende grafische objecten, te weten: 

karakters, sprites en high-resolution. In deze cursus zullen deze onder¬ 
werpen een voor een aan de beurt komen. Elke aflevering zal eenvoudig 
beginnen, zodat de beginnende programmeur uit de voeten kan met het 
behandelde onderwerp. Aan het eind van elk artikel zal wat dieper op de stof 
worden ingegaan, zodat ook de gevorderde programmeur aan zijn trekken 


bitwaarden 


byte 

waarde 



Figuur 2 

de opbouw 
van een letter 


komt. 

I n deze aflevering zullen we het 
hebben over karakters. Dit zijn de 
kleinste van de drie grafische ob¬ 
jecten. Ze worden meestal gebruikt 
om tekst op het scherm te zetten. 
Door het herdefiniëren van de ka¬ 
rakters kunnen echter ook mooie 
achtergrond graphics, bijvoor¬ 
beeld voor videospelletjes, worden 
gemaakt. De verschillende onder¬ 
werpen die aan bod zullen komen 
zijn de volgende: 

0 Karakters op het scherm zetten 
° Opbouw van karakters 
° Kleuren 

0 Zelf karakters maken 
0 Animatie 


Kleur 

CHR$ 

POKE-waarde 

zwart 

144 

0 

wit 

5 

1 

rood 

28 

2 

cyaan 

159 

3 

paars 

156 

4 

groen 

30 

5 

blauw 

31 

6 

geel 

158 

7 

oranje 

129 

8 

bruin 

149 

9 

licht rood 

150 

10 

grijs 1 

151 

11 

grijs 2 

152 

12 

licht groen 

153 

13 

licht blauw 

154 

14 

grijs 3 

155 

15 


Figuur 1 


Karakters op het scherm zetten 

In de Commodore zitten standaard 
twee voorgedefinieerde karaktersets. 
Beide sets bestaan elk uit 256 karak¬ 
ters. Een aantal hiervan zijn echter 
dubbel. Het is helaas niet mogelijk om 
beide sets tegelijk te gebruiken. Door 
SHIFT/COMMODORE in te drukken 
kunt u wisselen van set. 

Er zijn twee manieren om deze karak¬ 
ters op het scherm te zetten. De een¬ 
voudigste is door middel van de 
PRINT instructie. Deze manier be¬ 
hoeft geen verdere uitleg. De tweede 
manier gaat met behulp van de POKE 
instructie. Hiervoor moeten we echter 
eerst meer weten over de schermop- 
bouw. Het scherm bestaat uit 25 re¬ 


gels van elk 40 karakters lang. In to¬ 
taal staan er dus 1000 (25 * 40) karak¬ 
ters op het beeld (een spatie is ook 
een karakter). Elk karakter op het 
beeld correspondeert intern met een 
geheugenadres. Deze 1000 adressen 
samen worden het schermgeheugen 
genoemd. Dit geheugen begint op 
adres 1024 en eindigt op adres 2023. 
Het geheugenadres van een bepaal¬ 
de plaats op het scherm kan nu een¬ 
voudig worden gevonden met de vol¬ 
gende formule: adres = regelnummer 
* 40 + kolomnummer + 1024. De bo¬ 
venste regel heeft regelnummer 0 en 
de linkerkolom kolomnummer 0. 

Door nu in deze adressen de scherm- 
codes van de karakters (zie handlei- 
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ding) te poken, kunt u de karakters op 
het beeld zetten. POKE 1024,2 zorgt 
er dus voor dat er linksboven op het 
scherm een ’B’ verschijnt. (Op een 
aantal oudere Commodores werkt dit 
niet. Bij deze computers moet behal¬ 
ve de schermcode ook de kleurcode 
gepoked worden.) 

De karakters kunnen in 16 verschil¬ 
lende kleuren op het scherm gezet 


worden. Bij de PRINT instructie kunt 
u de kleur gewoon tussen de aanha¬ 
lingstekens meegeven. Bijvoorbeeld 
PRINT "{CTRL/BLK} tekst" zorgt er¬ 
voor dat er zwarte tekst op het scherm 
komt. Ook kan de kleur worden veran¬ 
derd met de instructie CHR$ (zie voor 
de CHR$-waarde van elke kleur fi¬ 
guur 1). Bijvoorbeeld PRINT CHR$(5) 
zorgt ervoor dat de karakters, die na 
deze instructie geprint worden, wit 
zijn. Een andere manier is weer met 
POKE. Elk karakter op het scherm 
heeft, behalve een adres in het 
schermgeheugen ook nog een adres 
in het kleurgeheugen, waar de kleur 
van het karakter in staat. Dit kleuren- 
geheugen loopt van 55296 tot 56295. 
De kleuradressen worden op dezelf¬ 
de manier berekend als de scherma- 
dressen. POKE 55296,1 maakt het 
karakter linksboven wit (zie voor de 
poke-waarden figuur 1). 

De scherm- en de randkleur kunnen 
worden veranderd door in de adres¬ 
sen 53281 en 53280 de betreffende 
kleur te poken. 

Opbouw van karakters 

Elk karakter is opgebouwd uit een 
raster van 8 bij 8 punten. Deze punten 
worden pixels genoemd. Elk van deze 
pixels kunnen afzonderlijk uit en aan 
worden gezet. Een pixel wordt intern 
gerepresenteerd door een bit. Acht 
bits vormen samen een byte. Een ge- 
heugenadres bestaat dus uit acht 
bits. Elk bit kan afzonderlijk een 0 of 
een 1 bevatten. De waarde 0 betekent 
dat het pixel uitstaat en de waarde 1 
dat het pixel aanstaat. Op deze ma¬ 
nier worden acht horizontale pixels in 
een byte gezet. Een karakter bestaat 
zo uit 8 bytes onder elkaar. 


Aan de hand van een voorbeeld zul¬ 
len we uitleggen hoe de byte-waar- 
den van een karakter berekend kun¬ 
nen worden. In figuur 2 is een karak¬ 
ter (een pac-man) getekend in een 
matrix van 8 bij 8. 

Een byte bestaat zoals gezegd uit 8 
bits. Elk van deze bits heeft een eigen 
waarde. Zo heeft het meest rechtse 
bit (bit 0) waarde 1 (2 tot de macht 0). 


Het meest linkse bit (bit 7) heeft waar¬ 
de 128 (2 tot de macht 7). Door nu de 
waarden van alle bits, die aan staan 
(corresponderend met de pixels die 
aan staan) op te tellen, wordt de 
waarde van een byte verkregen. De 
waarde van het bovenste byte in fi¬ 
guur 2 is dus 4+8+16+32 is 60. Op 
dezelfde manier worden de waarden 
van de overige bytes berekend. U 
heeft dus aan het eind acht byte- 
waarden, die specifiek zijn voor dat 
karakter. 

Als u dus zelf een karakter wilt ma¬ 
ken, maakt u eerst een raster van 8 bij 
8 en tekent u daar het karakter in. 
Daarna berekent u de waarden van 
de acht bytes. 


Opslaan van karakters 

We weten nu hoe we de acht byte- 
waarden van een karakter kunnen uit¬ 
rekenen. Het enige dat we nu nog 
moeten weten is, waar we deze waar¬ 
den in het geheugen moeten zetten. 
Om een karakterset in het geheugen 
op te slaan zijn 256 x 8 (= 2048) ge- 
heugenplaatsen nodig. De twee stan¬ 
daard karaktersets staan op de ROM 
(Read Only Memory) adressen 53248 
tot 57343. ROM-geheugen betekent 
dat deze adressen alleen uitgelezen 
kunnen worden (met de instructie 
PEEK), maar dat er niet in geschre¬ 
ven (POKE) kan worden. De eerste 
karakterset begint op 53248 en de 
tweede op 55296. Deze ROM-adres- 
sen zijn echter niet zonder meer uit te 
lezen omdat dit geheugen normaal 
door de video-chip gebruikt wordt (on¬ 
der andere voor het kleurgeheugen). 
Om dit stuk geheugen uit te lezen 
moet daarom eerst het video geheu¬ 
gen uitgeschakeld worden. Hiervoor 
dient bit 2 van adres 1 uitgezet te wor¬ 
den. Als u dit meteen zou doen, dan 
slaat de computer vast. Dit kunt u ver¬ 
helpen door vantevoren bit 0 van 
adres 56334 uit te zetten. Zie voor het 
aan- en uitzetten van bits de para¬ 
graaf over werken met bits. 

Nadat u dit gedaan heeft, kunt u de 
karaktersets uitlezen, maar niet ver¬ 
anderen, omdat het ROM-geheugen 
is (In ROM kan immers niet geschre¬ 
ven worden). Om de karakterset te 
veranderen, moet deze eerst naar 
RAM (Random Access Memory) ge¬ 
heugen verplaatst worden. RAM ge¬ 
heugen is het gewone geheugen, 
waarmee u normaal werkt. Er kan in 
geschreven en gelezen worden. Het 
verplaatsen doen we door de ROM- 
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adressen met de PEEK-instructie uit 
te lezen en de zo verkregen waarden 
in het RAM-geheugen te poken. Als 
dit gebeurt is, moet bit 2 van adres 1 
weer worden aangezet en daarna bit 
0 van adres 56334. De karakterset 
kan echter niet overal in het geheu¬ 
gen worden gezet. Daarvoor zijn be¬ 
paalde geheugengebieden gereser¬ 
veerd. Een daarvan loopt van adres 
14336 tot 16383. Om het niet te inge¬ 
wikkeld te maken zullen we ons be¬ 
perken tot dit geheugengebied. Het 
startadres van dit gebied (hier 14336) 
moet worden doorgegeven aan de 
computer. Dit gebeurt door bits 1, 2 
en 3 van adres 53272 aan te zetten. 
De andere geheugengebieden zullen 
over een paar afleveringen aan bod 
komen. Nu deze vervelende dingen 
achter de rug zijn, kunnen we aan de 
leuke dingen beginnen. Eerst nog 
even een programma, dat de karak¬ 
terset naar geheugenadres 14336 
verplaatst. 

10 rem karakterset verplaatsen 
20 poke 56334,peek(56334) and 254 

30 poke 1 ,peek( 1) and 251 

40 for i = 0 to 2047 

50 poke 14336+i,peek(53248+i) 

60 next 

70 poke 1,peek(1) or4 
80 poke 56334,peek(56334) or 1 
90 poke 53272,peek(53272) or 14 

Karakters veranderen 

Nu we de karakterset naar RAM heb¬ 
ben verplaatst kunnen we deze ver¬ 
anderen. Daarvoor moeten we weten 
waar elk karakter afzonderlijk in de 
set zit. Dit is heel simpel, want de ka¬ 
rakters staan in volgorde van de 
schermcodes in de set. Zoals eerder 
gezegd bestaat elk karakter uit acht 
bytes. Door nu de schermcode van 
een karakter te vermenigvuldigen met 
acht en daarbij het startadres van de 
karakterset op te tellen, wordt het eer¬ 
ste geheugenadres van het betreffen¬ 
de karakter gevonden. Het eerste ge¬ 
heugenadres van bijvoorbeeld de ’A’ 
is 1 * 8 + 14336 is 14344. Dit adres 
bevat de waarde van het bovenste 
byte. De volgende zeven adressen 
(14345 tot 14351) bevatten de rest 
van de letter ’A’. 

Om weer terug te komen op figuur 2; 
We kunnen nu de ’A’ veranderen in 
een pac-man, door de acht byte- 
waarden van de pac-man achtereen¬ 
volgens te poken in de adressen 
14344 tot 14351. Het volgende pro¬ 
gramma doet dit. 

10 rem verander ’A’ in pac-man 


20 for i = 0 to 7 

30 read a:poke 14344+i,a 

40 next 

50 rem byte-waarden 

60 data 60,126,243,255,224,240,126, 

60 


Plaatjes maken 

Met de zojuist verkregen kennis kun¬ 
nen nu kleine figuurtjes van 8 bij 8 
pixels worden gemaakt. Om nu grote¬ 
re plaatjes, bijvoorbeeld voor achter¬ 
gronden, te maken, moet het plaatje 
worden opgesplitst in blokjes van 8 bij 
8 pixels. Van elk blokje kan dan een 
karakter gemaakt worden. Door deze 
karakters in de juiste formatie op het 
scherm te zetten, wordt het juiste 
plaatje verkregen. 

Dia-negatieve karakters 

De standaard karakterset bestaat uit 
256 verschillende karakters. De eer¬ 
ste 128 zijn de karakters die op het 
toetsenbord zitten. De andere karak¬ 
ters zijn hetzelfde, alleen dan dia-ne- 
gatief (reverse). Dit betekent dat alle 
pixels die in het ene karakter aan¬ 
staan, in het andere karakter uitstaan 
en omgekeerd. De schermcodes hier¬ 
van lopen van 128 tot 255. Om de 
schermcode van een bepaald dia-ne- 
gatief karakter te berekenen, moet er 
dus 128 bij de schermcode van het 
gewone karakter worden opgeteld. 

De schermcode van een spatie is 32. 
Dus de reverse spatie heeft als code 
160. Dit is het karakter voor de cursor. 
U kunt nu dus eenvoudig de cursor 
veranderen. 

Multi color karakters 

Tot nu toe hebben we alleen nog 
maar karakters behandeld, die een 


kleur hebben; De zogenaamde single 
color karakters. Er bestaat voor de ka¬ 
rakters ook een multi color mode. In 
deze mode is het mogelijk om een ka¬ 
rakter drie kleuren te geven. Dit gaat 
echter wel ten koste van de resolutie 
van het karakter. Want het karakter 


bestaat dan nog maar uit een raster 
van 4 bij 8 pixels in plaats van 8 bij 8. 
Een pixel in een multi color karakter is 
twee keer zo breed als een pixel in 
een single color karakter. Het karak¬ 
ter wordt dus grover. 

De pixels worden nu door twee bits in 
plaats van een bit gerepresenteerd. 
Deze bits bepalen of het pixel aan of 
uit staat en de ook kleur van het pixel, 
als deze aan staat. Met deze twee bits 
kunnen vier combinaties van bitstan- 
den worden gemaakt (00 01 10 11). 
De combinatie 00 betekent dat het 
pixel uitstaat. De overige drie combi¬ 
naties staan voor de drie kleuren, (het 
pixel staat dan aan). Een multi color 
karakter bestaat dus net als een sin¬ 
gle color karakter uit acht bytes. Al¬ 
leen correspondeert een byte nu 
maar met vier pixels; twee bits per 
pixel. Deze twee pixels liggen steeds 
naast elkaar in het byte. Bit 0 en 1 cor¬ 
responderen met het meest rechtse 
pixel en bit 6 en 7 met het meest link¬ 
se. 

Helaas is er een beperking bij het kie¬ 
zen van de kleuren. U kunt namelijk 
niet elk karakter drie willekeurige 
kleuren geven. Twee van de drie kleu¬ 
ren moet u voor alle karakters geza- 
melijk kiezen. De derde kleur kan, net 
zoals in de single color mode, voor elk 
karakter afzonderlijk worden geko¬ 
zen. De eerste en de tweede kleur 
moeten respectievelijk in de adressen 
53282 en 53283 worden gepoked. 
Deze twee kleuren corresponderen 
l met de bitcombinaties 01 en 10. Zet u 
bijvoorbeeld de bitcombinatie 10 in bit 



Commodore Info 3/89 


33 






C-64 


3 en 2 van een byte, dan heeft dat tot 
gevolg dat het tweede pixel van 
rechts aan staat met de kleur die in 
adres 53283 staat. 

De derde kleur moet weer in het kleu¬ 
ren geheugen (55296 tot 56295) wor¬ 
den gepoked. Voor deze derde kleur 
geldt ook een beperking. Hiervoor 
heeft u alleen maar de kleuren met 
code 0 (zwart) tot en met 7 (geel) tot 
uw beschikking. Om de goede kleur 
te verkrijgen moet u bij deze code 8 
optellen en dit getal in het kleurenge- 
heugen poken. POKE 55296,8 heeft 
dus tot gevolg dat het karakter links 
boven als derde kleur zwart heeft. De 
reden voor deze beperking is de vol¬ 
gende: U kunt in de multi color mode 
namelijk ook single color karakters 
gebruiken. Dit is erg handig om tekst 
in de multi color mode toch in gewone 
karakters op het scherm te zetten. 
Met de derde kleur wordt aangegeven 
of een karakter single of multi color is. 
De kleurcodes 0 tot en met 7 geven 
de single color mode aan en zoals ge¬ 
zegd geven de codes 8 tot en met 15 
de multi color mode aan. Deze derde 
kleur correspondeert met de bitcom- 
binatie 11. 

Ter verduidelijking zullen we hier een 
voorbeeld geven (zie figuur 3). Dit fi¬ 
guur laat een byte van een multi color 
karakter zien. Het eerste pixel staat 
hier uit. Het tweede pixel heeft de 
kleur die in adres 53282 staat (kleur 
1). Het derde pixel heeft de kleur die 
in adres 53283 staat (kleur 2) en het 
vierde pixel heeft de kleur uit het kleu- 
rengeheugen (kleur 3). 

We moeten nu alleen nog weten hoe 
de computer in de multi color mode 
wordt gezet. Dit kan worden gedaan 
door bit 4 van adres 53270 aan te zet¬ 
ten: POKE 53270,PEEK(53270) OR 
16. 

Meerdere achtergrondkleuren 

Menu gestuurde programma’s kun¬ 
nen mooi en duidelijk worden ge¬ 
maakt, door het scherm te verdelen in 
verschillend gekleurde Windows. De 
commodore biedt de mogelijkheid om 
elk karakter afzonderlijk een eigen 
achtergrondkleurte geven. Door blok¬ 
ken tekst op verschillende achter¬ 
grondkleuren te zetten, ontstaan 
Windows. Dit is echter alleen maar 
mogelijk in de single color mode. In de 
multi color mode, wordt de achter- 
grondkleur van alle karakters altijd 
bepaald door de waarde van adres 
53281. 

Om de computer over te schakelen op 
het gebruik van meerdere achter¬ 
grondkleuren moet bit 6 van adres 
53265 worden aangezet. Dit kunt u 


Werken met bits 


D e Commodore 64 is een acht bits computer. Dit houdt in dat een 
geheugenadres (een byte) uit acht bits bestaat. Een bit kan aan of uit 
staan, dat wil zeggen een 1 of een 0 bevatten. Deze acht bits vormen 
samen het getal, wat in het geheugenadres staat. De waarde van elk bit 
wordt gegeven door de volgende formule: waarde bit a = 2ta. Dus bit 0 
heeft waarde 2t0 = 1. De waarde van de geheugenplaats zelf wordt ver¬ 
kregen door de waarden van de bits die aan staan op te tellen 
Om bits aan en uit te zetten, moet u eerst weten hoe de logische operatoren 
AND en OR werken. Met deze twee operatoren kunnen twee getallen bit voor 
bit met elkaar vergeleken worden. Met de AND en OR worden dus op deze 
manier twee hele bytes met elkaar vergeleken. De uitkomst van een verge¬ 
lijking tussen twee bits is zelf ook weer een bit en wordt bepaald door de 
waarheidstabel van respectievelijk AND en OR. Als twee bits met AND wor¬ 
den vergeleken, is de uitkomst een 1 als beide bits een 1 bevatten, anders is 
de uitkomst een 0. Bij OR is de uitkomst een 1 als tenminste een van de twee 
bits een 1 bevat. De volgende twee voorbeeldjes maken het wat duidelijker. 


byte 1 

0 

1 

0 

1 

1 

0 

0 

1 

byte 2 

1 

0 

0 

1 

0 

0 

0 

1 OR 

uitkomst 

1 

1 

0 

1 

1 

0 

0 

1 

byte 1 

0 

1 

0 

1 

1 

0 

0 

1 

byte 2 

1 

0 

0 

1 

0 

0 

0 

1 AND 

uitkomst 

0 

0 

0 

1 

0 

0 

0 

1 


Om nu een bepaald bit in een geheugenadres uit te zetten, kunt u de AND 
instructie gebruiken. U wilt bijvoorbeeld het tweede bit in geheugenadres 1 
uitzetten. De waarde van het tweede bit is 4. De overige bits in geheugen¬ 
plaats 1 moeten hetzelfde blijven. U kunt het adres vergelijken door middel 
van AND met 255-4. Het adres wordt zo vergeleken met een byte waarvan 
alle bits aan staan, behalve het tweede bit. De vergelijking tussen de tweede 
bits geeft dus altijd 0. Het resultaat zal zijn dat bit 2 op 0 komt te staan en de 
overige bits hetzelfde blijven. Dit getal moet u dan weer in adres 1 poken: 
POKE 1,PEEK(1) AND 251. 

U kunt ditzelfde bit weer aan zetten met de OR instruktie. POKE 1 ,PEEK(1) 
OR 4 heeft tot gevolg dat het tweede bit aan komt te staan en dat de overige 
bits hetzelfde blijven. Het adres wordt door middel van OR vergeleken met 
een byte waarvan alleen het tweede bit aanstaat, zodat bij de uitkomst dit bit 
altijd 1 is. Er kunnen natuurlijk ook een aantal bits tegelijk aan of uit worden 
qezet. Daarvoor moet u de waarden van de betreffende bits bij elkaar op 
tellen 


Bits - AND 


0 0-0 

0 1-0 

10-0 
11-1 


Bits - OR 


o o - o 
0 1-1 
10-1 
11-1 


Waarheidstabellen van AND en OR 


doen met POKE 53265,PEEK(53265) 
OR 64. 

Het gebruik van meerdere achter¬ 
grondkleuren heeft echter wel zijn 
prijs. U kunt alleen nog maar de ka¬ 
rakters met schermcodes 0 tot 63 ge¬ 
bruiken. Deze karakters bestaan uit 
alle letters, cijfers en leestekens. De 
karakters die u dus niet kunt gebrui¬ 
ken zijn de grafische karakters. Waar¬ 
om kunt maar 64 karakters gebrui¬ 


ken? Omdat het mogelijk is om de 
schermcodes van deze 64 karakters 
te representeren in zes bits. Het getal 
63 ziet er binair als volgt uit 
00111111. De eerste twee bits wor¬ 
den dus niet gebruikt. Bij het gebruik 
van meerdere achtergrondkleuren 
worden deze twee bits gebruikt om de 
kleur te bepalen. Net als bij de multi 
color karakters is het mogelijk om met 
deze twee bits vier combinaties van 
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bitstanden te maken. Er kunnen dus 
vier verschillende achtergrondkleuren 
gebruikt worden. 

Deze vier kleuren moeten worden ge- 
poked in de adressen 53281 (kleur 1) 
tot en met 53284 (kleur 4). De bitcom- 
binaties 00, 01, 10 en 11 correspon¬ 
deren respectievelijk met de achter¬ 
grondkleuren die in 53281, 53282, 
53283 en 53284 staan. 

U kunt karakters met verschillende 
achtergrondkleuren via het toetsen¬ 
bord direct op het scherm krijgen. Ka¬ 
rakters met kleur 1 verkrijgt u door de 
karakters gewoon in te tikken. Als u 
letters samen met SHIFT tikt, krijgt u 
letters met achtergrondkleur 2. Om 
cijfers en leestekens in kleur 2 te krij¬ 
gen moet u op de Commodore toets 
en een grafische toets drukken. Wel¬ 
ke grafische toetsen met welke cijfers 
en leestekens correponderen kunt u 
het beste zelf even uitproberen. Om 
achtergrondkleuren 3 en 4 te gebrui¬ 
ken moet u de computer eerst in re- 
verse mode brengen door middel van 
CTRL-9. Kleur 3 en 4 worden daarna 
op dezelfde manier als kleur 1 en 2 
verkregen. 

Een andere manier om de karakters 
op het scherm te krijgen is door ze di¬ 
rect in het schermgeheugen te poken. 
De schermcodes voor de karakters 
met verschillende achtergrondkleuren 
kunnen eenvoudig worden berekend 
met de volgende formule: 

Code = gewone schermcode OR 
kleur, 

Hierin heeft ’kleur’ de waarde 0 voor 
kleur 1,64 voor kleur 2,128 voor kleur 
3 en 192 voor kleur 4. 

Het volgende programma geeft een 
voorbeeld. 

10 rem meerdere 

achtergrondkleuren 
20 poke 53265,peek(53265) or 
64 

30 for i = 53280 to 53284 
40 read a:poke i,a:next 
50 print"commodore info" 

60 print"{SHIFT}COMMODORE 
INFO" 

70 print"{RVS ON{commodore 
info" 

80 print"{RVS ON} {SHIFT} 
COMMODORE INFO" 

90 data 0,0,2,5,6 

Animatie 

In een tekenfilm ontstaat beweging 
door snel een aantal beelden, die een 
beetje van elkaar verschillen, achter 
elkaar te projecteren. Op dezelfde 
manier kunnen we ook karakter gra- 
phics animeren. We zullen hieronder 
kort een aantal methoden bespreken, 


waarmee u karakter animatie kunt 
programmeren. 

De eenvoudigste animatie is het be¬ 
wegen van een karakter over het 
scherm. Door het karakter steeds uit 
te wissen en op een aangrenzende 
schermplaats neer te zetten ontstaat 
de illusie van beweging. 

Om realistische beelden te maken is 
beweging alleen niet voldoende. 
Vaak zal de vorm van het karakter 
veranderd moeten worden. Om bij¬ 
voorbeeld een mannetje over het 
scherm te laten lopen, moet de stand 
van de benen voortdurend veranderd 
worden. Een snelle methode om dit te 
doen, is door van te voren van alle 
standen een apart karakter te maken. 
Door deze karakters snel over elkaar 
heen te printen of te poken, lijkt het of 
het karakter beweegt. Een tweede 
methode is, door niet alle karakters 
van te voren te definiëren, maar door 
in het programma steeds hetzelfde 
karakter te veranderen. Deze metho¬ 
de is minder snel dan de vorige omdat 
er steeds acht nieuwe waarden in het 
karaktergeheugen moeten worden 
gepoked, in plaats van een nieuwe 
waarde in het schermgeheugen. Ze is 
daarom ook minder geschikt voor Ba¬ 
sic programma’s. Een groot voordeel 
is echter dat er meerdere figuurtjes te¬ 
gelijk kunnen worden bewogen. Als er 
bijvoorbeeld tien dezelfde karakters 
op het scherm staan, zullen deze al¬ 
lemaal tegelijk van vorm veranderen. 

Applicatie programma’s 

Als laatste geven we nog twee leuke, 
handige programma’s. Het eerste 
programma maakt van uw karakterset 
italics, schuine letters. Dit is in machi¬ 


netaal heel makkelijk te doen, door 
gewoon de bovenste twee bytes van 
elk karakter ieder een bit naar rechts 
te schuiven door middel van de LSR- 
instructie. De onderste drie bytes wor¬ 
den vervolgens met de ASL-instructie 
ieder een bit naar links geschoven. 
Dit gebeurt allemaal tijdens het copie- 
ren van de karakterset naar RAM. 
Doordat het programma in machine¬ 
taal geschreven is, is het razendsnel. 
U kunt dergelijke grappen ook zelf in¬ 
bouwen bij het copieren van een ka¬ 
rakterset (in Basic). U kunt bijvoor¬ 
beeld van elk karakter de zijkant weg¬ 
halen, door van elk byte dat gecopi- 
eerd wordt, het zesde bit uit te zetten. 
U zult inmiddels wel weten hoe dit 
moet (met de AND-instructie). Op een 
dergelijk wijze kunt u ook onder¬ 
streepte karakters maken. 

Het tweede programma is een karak- 
ter-editor. Hiermee kunt u met behulp 
van een joystick, een karakter op het 
scherm tekenen. U kunt bekijken hoe 
het karakter er uit gaat zien, en als het 
af is, krijgt u de byte-waarden van het 
karakter. Met dit programma kunt u 
ook de opbouw zien van de karakters 
van de standaard set (met toets ’6’). 
Voor de rest zitten er nog een paar 
handige opties op. Als u het program¬ 
ma onderbreekt met STOP/RE- 
STORE staat de karakterset nog 
steeds in het geheugen op adres 
14336. 

Tot zover deze aflevering over karak¬ 
ters. In de volgende aflevering zullen 
we alles over sprites vertellen. 

Hylke Sprangers en Michel de Boer 
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1 

2 

3 

4 

5 

10 

20 

30 


40 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 


rem ************* 

rem * * 

rem * italics * 

rem * * 

rem ************* 

for x=49152 to 49255:read a 

poke x,a:i=i+a:next 


if i<>15383 then 
data":end 
sys 49152 
data 173,014,220, 
data 165,001,041, 
data 133,251,133, 
data 169,056,133, 
data 074,145,251, 
data 251,162,000, 
data 232,224,003, 
data 177,253,010, 
data 208,245,200, 
data 252,230,254, 
data 203,165,001, 
data 014,220,009, 
data 024,208,009, 


prinf’fout in 


0 

41, 

254, 

141, 

014, 

220 

2 

51, 

133, 

001 , 

169, 

000 

2 

53, 

169, 

208, 

133, 

254 

2 

52, 

160, 

000, 

177, 

253 

2 

00, 

177, 

253, 

074, 

145 

2 

00, 

177, 

253, 

145, 

251 

2 

08, 

246, 

162, 

000, 

200 

1 

45, 

251, 

232, 

224, 

003 

1 

92, 

000, 

208, 

215, 

230 

1 

65, 

254, 

201, 

216, 

208 

0 

09, 

004, 

133, 

001, 

173 

0 

01 , 

141, 

014, 

220, 

173 

0 

\ — i 

141, 

024, 

208, 

096 


1 

2 

3 

4 

5 

6 

7 

8 
10 
20 
30 
40 

47 

48 

49 

50 
60 
70 
80 
90 
100 

107 

108 

109 

110 
120 
130 
140 
150 

157 

158 

159 

160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 

277 

278 

279 


* * 

* karakter editor * 

* * 


karakterset kopiëren 

":poke 5 6334,0 


rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 

print"even geduld, 
poke l,51:for a=0 to 2047 
poke 14336+a,peek(53248+a):next 
poke l,55:poke 56334,1 
rem 

rem initialisatie 
rem 

poke 53281,254:poke 53280,254 
restore:xc=1072:qq=32:cu=l 
ul(1)=86:ul(2)=81:ul(3)=43:u2(1)=32 
u2(2)=160:u2(3)=32:dim js(16) 
for x=6 to 15:read a:js(x)=a:next 
data 41,-39,1,0,39,-41,-1,0,40,-40 
rem 

rem karakter invoer 
rem 

printchr$(147)chr$(5) ; 
input"welk karakter veranderen";a$ 
sc=peek(1050):ga=14336+8*sc 
print tab(40)"schermcode:"sc 
print tab(40)"joystick in port 2" 
rem 

rem schermopbouw 
rem 

for q=0 to 3000:next:print chr$(147) 
for q=1031 to 1040:pokeq,90 
poke q+360,90:next 
for q=1031 to 1399 step 40 
poke q,90:poke q+9,90:next 
print tab(100)"karakter : ";a$:print 
print tab(247)"1 : karakter af" 

karakter zien" 


print tab(7)"2 
print tab(7)"3 
print tab(7)"4 
print tab (7)"5 
print tab (7)"6 
rem 

rem joystick 
rem 


scherm leeg" 
scherm vol" 
reverse karakter" 
oude karakter" 


& toetsenbord uitlezen 


280 get a$:poke xc,ul(cu):for t=0 to 80 
290 next:if a$="l" or a$="2" then 380 
300 if a$>"2" and a$<"7 n then 500 
310 a^peek(56320):ri=js(abs(a-lll)) 

320 if a=lll then 360 

330 if ri = 0 or peek (xc + ri)=90 then 280 
340 u2(3)=qq:qq=peek(xc+ri):xc=xc+ri 
350 poke xc-ri,u2(cu):goto 280 
360 cu=cu+l:if cu=4 then cu=l 
370 goto 280 

377 rem 

378 rem karakter omzetten in bytes 

379 rem 

380 u2(3)=qq:poke xc,u2 (cu) :a=1072 
390 for x=0 to 7:po=0:for t=0 to 7 

400 if peek(a+t)=160 then po=po+2T(7-t) 

410 nextipoke ga+x,po:a=a+40:next 
420 if a$="1" then 450 

430 poke 53272,31:for x=0 to 4000:next 
440 poke 53272,21:goto 280 
450 print chr$(147):for x=0 to 7 
460 print"byte"x":";peek(x+ga):next 
470 print tab(40)"druk een toets in." 

480 get a$:if a$ = "" then 480 
490 clr:goto 50 

497 rem 

498 rem opties uitvoeren 

499 rem 

500 a=1072:for x=0 to 7:for t=0 to 7 

510 on (asc(a$)-50) gosub 530,540,550,570 
520 next:a=a+40:next:goto 280 
530 poke a+t,32:return 
540 poke a+t,160:return 

550 if peek (a+t)=32 then poke (a+t),160:return 
560 poke(a+t),32:return 

570 if (peek(ga+x) and (2T(7-t)))=0 then poke 
a+t,32:return 
580 poke a+t,160:return 


De nieuwe 

salasan 

C-64 catalogus 

komt binnenkort uit! 



nu al gratis aan te vragen! 
Salasan postbus 5570, 1007AN 
Amsterdam tel. 020-203219 

BESTELNÜ 



Commodore Info 3/89 





C-64 




Vanaf dit nummer starten Hylke Sprangers en Michel de Boer met de rubriek Tips & 
Trucs 64. Hierin zullen elke keer handige peeks, pokes en kleine programma’s in 
Basic en machinetaal worden behandeld. Lezers die zelf handige tips en trucs hebben 
kunnen deze insturen. 

Tips & trucs 64 

Toetsenbord buffer 

In het geheugen van de commodore 
64 is er een zogenaamde toetsenbord 
buffer. Hierin wordt bijgehouden hoe¬ 
veel en welke toetsen er door de ge¬ 
bruiker ingetikt zijn, zolang ze nog 
niet verwerkt zijn. Dit is nodig omdat 
de computer behalve de invoer van 
het toetsenbord ook andere gege¬ 
vens moet verwerken. Tijdens het 
verwerken van die andere gegevens 
wordt de invoer van het toetsenbord 
zolang in deze buffer bewaard, zodat 
deze later verwerkt kan worden; bij¬ 
voorbeeld op het scherm zetten. 

Het is voor de programmeur mogelijk 
om instructies, die pas later moeten 
worden uitgevoerd, in deze buffer op 
te slaan. Vanuit een Basic program¬ 
ma kan bijvoorbeeld een instructie, in 
de vorm van karakters, in de buffer 
worden geplaatst. Deze instructie 
wordt pas uitgevoerd, nadat het pro¬ 
gramma gestopt is. 

Deze buffer kan maximaal 10 tekens 
bevatten en bevindt zich op de geheu- 
genadressen 631 t/m 640. Het aantal 
tekens dat is opgeslagen wordt bijge¬ 
houden in adres 198. 

Een handige applicatie is het genere¬ 
ren van Basic-regels vanuit een pro¬ 
gramma. In onderstaand programma 
wordt hiervan een eenvoudig voor¬ 
beeld gegeven. Hier wordt aan de ge¬ 
bruiker een wiskundige functie ge¬ 
vraagd. Van deze functie wordt dan 
een programma regel gemaakt, waar¬ 
na ermee gerekend kan worden. 


1 rem voorbeeld gebruik 

2 rem keyboard buffer 

3 rem 

10 prinf'geef 

funktie":input"y= 

20 print M {shift-clr} {2 

down}"; 

print"60 def fn y(x)- 


30 

40 

50 

70 

80 

90 


a$ 

x 

= "a$ 


prinf'goto 60 {home}":poke 
831, 13 

poke 832,13:poke 198,2:end 
printchr$ (147) 
input"geef x";x 
fw=fn y(x): print "y=" fw 


100 print:goto 80 


In regel 10 wordt de wiskundige funk¬ 
tie gevraagd en in A$ gezet. Nadat in 
regel 20 het scherm is schoonge¬ 
maakt, wordt in regel 30 de in te bren¬ 
gen Basic regel op het scherm gezet. 
Het nummer van deze regel is hier 60 
en hierin wordt de ingetypte funktie 
gedefinieerd met DEF FN. Daarna 
wordt in de volgende regel GOTO 60 
op het scherm gezet waarna de cur¬ 
sor boven aan het scherm wordt ge¬ 
plaatst. Vervolgens worden de eerste 
twee adressen van het toetsenbord 
buffer vol gepoked met returns (AS- 
Cll-code 13). Adres 198 wordt op 2 
gezet (twee returns). Dan stopt het 
programma vanwege END. Boven¬ 
aan het scherm wordt READY neer 
gezet en de cursor komt eronder te 
staan, bovenop de Basic regel die 
geimplementeerd moet worden! De 
eerste return wordt dan uitgevoerd. 
Dus die Basic regel komt dan in het 
programma te staan. De cursor staat 
daarna een regel verder. Daar staat 
GOTO 60. Door de tweede return 
wordt dit ook uitgevoerd en het pro¬ 
gramma wordt vervolgd bij regel 60, 
waar de funktie inmiddels staat. De 
rest van het programma spreekt voor 
zich. 


Let wel: bij het vervolgen van het pro¬ 
gramma bent u de andere variabelen 
kwijt! A$ is bijvoorbeeld weg. Dit komt 
doordat als er iets aan een program¬ 
ma wordt toegevoegd of verbeterd, 
alle variabelen verloren gaan. Wilt u 
toch bepaalde variabelen bewaren, 
dan moet u die ook doorgeven met re¬ 
turns. Dit kan op twee manieren. U 
kunt de variabelen in DATA-state- 
ments zetten, maar u kunt ze ook ge¬ 
woon in een toekenning op het 
scherm zetten: A$="var": etc. 

Random in machinetaal 

Het is erg moeilijk om willekeurige ge¬ 
tallen te genereren. Voor een Basic- 
programmeur is dit geen probleem, 
omdat hij gebruik kan maken van de 
geïmplementeerde RND functie. De 
machinetaalprogrammeur moet ech¬ 
ter zelf een random functie maken. U 
zou natuurlijk de ROM-routine, die de 
basic RND uitvoert, kunnen gebrui¬ 
ken. Deze is alleen nogal langzaam 
en lastig aan te roepen, omdat er floa- 
ting point parameters meegegeven 
moeten worden. 

Het kan veel makkelijker en sneller 
via de geluidschip, al klinkt dit misch- 
ien wat vreemd. De golfvorm van ge- 
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luidsregister 3 kan namelijk worden 
uitgelezen in adres 54299. Met ruis 
als golfvorm fungeert dit adres als 
random generator. De frequentie van 
de ruis moet hoog worden gekozen 
voor een goede werking. De ADSR 
en het volume hoeven niet ingesteld 
te worden, omdat deze geen invloed 
hebben op de golfvorm. Verder kan 
het geluid van stem 3 uitgeschakeld 
worden door bit 7 van adres 54296 
aan te zetten, zodat stem 1 en 2 ge¬ 
woon voor muziek te gebruiken zijn. 
De random getallen die op deze ma¬ 
nier gegenereerd worden liggen tus¬ 
sen 0 en 255. 

Hieronder volgt een voorbeeld in as- 
sembly. 

MNEMONICS KOMMENTAAR 

Ida $d418 

ora #$80 ;schakel stem 3 uit 
sta $d418 

Ida #$ff frequentie 

sta $d40f 

Ida #$80 ;ruis 

sta $d412 

rts 

Nadat deze routine een keer is aan¬ 
geroepen, worden continu random 
getallen gegenereerd en in 54299 ge¬ 
zet. Om dus de accumulator te laden 
met een random getal hoeft u alleen 
maar de instructie LDA $D41 B te ge¬ 
ven. 

Laden en saven in machinetaal 

Voor het laden en saven van files van¬ 
uit machinetaal programma’s kunt u 
gebruik maken van ROM-routines. In 
dit stukje zullen we uitleggen wat de 
werking van deze routines is en hoe u 
ze zelf kunt gebruiken. 

$FFBD: 

Hiermee wordt de filenaam aan de 
computer doorgegeven. Voor het 
aanroepen van de routine moet de 
lengte van de naam in de accumulator 
worden gezet. Het X- en het Y-regis- 
ter moeten respectievelijk het LO- en 
Hl-byte van het adres waar de naam 
is opgeslagen, bevatten. 

$FFBA: 

Met deze routine wordt een file geo¬ 
pend. In de accumulator moet het file- 
nummer staan. Dit nummer kunt u zelf 
kiezen tussen 0 en 255. Het X-regis- 
ter moet het devicenummer bevatten. 
Dus 1 voor tape en 8 voor disk. Het 
Y-register bevat het secundaire 
a d reS 

Bij LÓAD"FILE",8,1 is het secundaire 
adres 1 en het devicenummer 8. Bij 
LOAD"FILE" is het secundaire adres 


0 en het device nummer 1. Zie de rou¬ 
tines $FFD5 en $FFD8 voor nadere 
uitleg over dit secundaire adres. 

$FFD5: 

Dit is de laad/verify routine. Voordat 
deze routine wordt aangeroepen, 
moet er een file geopend zijn en een 
filenaam gegeven zijn met behulp van 
de vorige twee routines. 

Als voor de aanroep de accumulator 
0 is, wordt er geladen en bij 1 wordt er 
geverifieerd. Bij het secundaire adres 
0 moeten het X- en Y-register het LO- 
en Hl-byte van het startadres, vanaf 
waar het programma in het geheugen 
moet worden geladen, bevatten. Bij 
het secundaire adres 1 wordt het star¬ 
tadres van tape/disk gehaald. Het X- 
en Y-register hoeven dan niet te wor¬ 
den gezet. 



Na het laden van de file bevatten het 
X- en Y-register het eindadres van de 
file. 

$FFD8: 

Dit is de save routine. Voor de aan¬ 
roep deze routine moeten weer de 
routines $FFBA en $FFBD worden 
aangeroepen. U moet bij het saven al¬ 
tijd het secundaire adres 1 gebruiken. 

In twee opeenvolgende zero-page 
adressen (u kunt hiervoor bijvoor¬ 
beeld $FB en $FC gebruiken) moeten 
het LO- en Hl-byte van het start adres 
van de te saven file gezet worden. De 
accumulator moet het eerste zero- 
page adres bevatten (in ons voor¬ 
beeld dus $FB). Het X- en Y-register 
het eindadres. 

Het volgende voorbeeldprogramma 
schrijft het geheugen van $c000 to 
$cfff naar tape. 

LABELS MNEMONICS KOMMENTAAR 


Ida 

#$01 

;filenr is 1 

ldx 

#$01 

;datarecorder 

ldy 

#$01 

;sec. adres 1 

jsr 

$f fba 


Ida 

#$04 

;naamlengte 

ldx 

# aam 

;1o-byte naam 

ldy 

#naam 

;hi-byte naam 

jsr 

$f fbd 


Ida 

#$oo 

;1o-byte 

sta 

$fb 

start 

Ida 

#$c0 

;hi-byte 

sta 

$fc 

start 

Ida 

#$fb 

;zero-page 

ldx 

#$ff 

adr 

;lo-byte eind 

ldy 

#$cf 

/hi-byte eind 

jsr 

$ffd8 


rts 



.asc "file" 



Peeks & Pokes 

650: Toets repeat 

In dit adres wordt bepaald welke toet¬ 
sen er repeteren. Standaard staat er 
een 0 in, zodat alleen de spatiebalk, 
cursortoetsen en de insert/delete 
toets repeteren. Met POKE 650,128 
repeteren alle toetsen. Met POKE 
650,64 repeteert geen enkele toets. 

808: STOP/RESTORE uitschakelen 
Met POKE 808,234 kunt u de werking 
van de STOP/RESTORE uitschake¬ 
len. Helaas werkt het LIST comman¬ 
do dan niet meer goed. Met POKE 
808,237 is alles weer normaal. 

214: Huidige cursor positie 
Dit geheugenadres kan worden uitge- 
peeked om te kijken op welke regel de 
cursor staat. De bovenste regel heeft 
regelnummer 1. 

653: Shift/CTRL/Logo test 

Met dit adres kan getest worden of er 

op de Shift-, Commodore- of Control- 

toets wordt gedrukt. De bitverdeling is 

als volgt: 

bit 0: Shift 

bit 1: Commodore Toets 
bit 2: Control 

Als er op de Control wordt gedrukt 
heeft dit adres dus de waarde 4. Com¬ 
binaties van toetsen zijn ook mogelijk. 
Voorbeeld: als u alle drie de toetsen 
tegelijk indrukt, is de inhoud van dit 
adres 7 

Geluid uit de datarecorder 

Het zoeken van een programma, 
waarvan de tellerstand niet bekend is, 
is een vervelend en vaak langdurig 
karwei. Om dit zoeken een beetje te 
versnellen, kunt u het volgende pro¬ 
gramma gebruiken. 

Het programma zorgt er voor dat u de 
signalen van de datarecorder kan ho- 
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80 data 


ren. Om nu het begin van een pro¬ 
gramma te vinden moet u steeds een 
stukje spoelen en een stukje afspe¬ 
len, totdat u een hoge pieptoon hoort 
(deze toon is het begin van een pro¬ 
gramma). Daarna kunt u het program¬ 
ma laden. U hoeft nu niet lang te 
wachten voordat het programma ge¬ 
vonden wordt. Het op deze manier 
zoeken van het begin van een pro¬ 
gramma kost minder tijd, dan gewoon 
laden en wachten tot de computer het 
gevonden heeft. 

10 rem geluid uit de 
datarecorder 
15 rem 

20 for i = 49152 to 49194 
25 read a:b=b+a:poke i,a 
30 next 

40 if b<>5303 then prinf'fout 
in data!" 

60 data 32,23,248,165,145, 

201,127 

65 data 208,1,96,169,0,141,17 
70 data 208,173,13,220,41, 

16, 74 

75 data 141,24,212,141,32, 
208,165 


197,201,60,208,238,169,0 
85 data 133,198,169,27,141, 

17, 208, 96 

Nadat u dit programma geRUNd 
heeft, kunt u een tape afluisteren met 


SYS 49152. Als u klaar bent met zoe¬ 
ken, moet u op de spatiebalk drukken. 

Hylke Sprangers en Michel de Boer 


GEOS 2.0 UPGRADE 


NU OOK VOOR DE C-128 EN 128D 

De compleet vernieuwde en uitgebreide GEOS 2.0 is nu ook verkrijgbaar als upgrade-programma. Niet al¬ 
leen voor de C-64 maar nu ook voor de C-128 modellen 

Alleen voor bestaande GEOS gebruikers. 

De upgrade pakketten worden compleet geleverd met orginele handleiding van meer dan 300 pagina’s. 
C-64 2.0 upgrade voor ƒ 99,00 incl. verzendkosten (Normale winkelprijs ƒ 149,00) 

C-128 2.0 upgrade voor ƒ 109,00 incl. verzendkosten (Normale winkelprijs ƒ 169,00). 

Stuur een betaalcheque voor ƒ 99,- of ƒ 109,- naar de importeur van Geos produkten: 

Frotech Nederland BV, Postbus 189,3620 AD Breukelen. 

De nieuwe Geos 2.0 wordt u dan onmiddelijk toegestuurd. 

Als bewijs dat u reeds Geos gebruiker bent kunt u volstaan met het toezenden van de voorkaft van uw hui 
dige Geos gebruikershandleiding met uw betaalcheque. 

U kunt met de nieuwe 2.0 versie gegarandeerd al uw oude applikaties zonder meer gebruiken voor 
Commodore 64 en 128 computers. 


Veel plezier en succes met 2.0 
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Basic miniatuurtjes 

Een rubriek van Alex van Maarschalkerwaart met korte tot zeer korte programma’s 


Zwaardgevecht 

Auteur: Dusty Murray 

Zwaardgevecht 64 is een geluids demo van twee zwaard- 

vechtende personen het is alleen om naar te luisteren. 

0 print"[SHIFT-CLR]"tab(11)"zwaardge 
vecht[SPACE]c64" 

5 fort=54272to5429 6:poket,0:next:pok 

e54296,15:a=54270:b=54280 

10 pokea+2,200:poke a+3,100:poke a+6, 

32:poke a+7,20:poke a+8,14 

20 pokeb,210:pokeb-1,8:pokeb+4,101:po 
keb+5,15:pokeb+3, 33:poke a+6,33 

40 if int (15*rnd(1) )<>1 then goto 40 

50 pokeb+3, 0:pokea+6,0:poke b+3,33:po 
ke a+6,33:goto40 

Tekst Scroller 

Auteur: Dusty Murray 

0 fort=49152 to 49212 : read a:poket 
,a:next 

10 a$ = "[CTRL-9][ SPACE ]commodore[ SPACE 
]info [SPACE] !!!!!!!!!! [SPACE] [CTRL 


0][3xSPACE]" 

20 print"[CTRL-2][SHIFT-CLR]"a$:fort= 
0to 59:poket+832,peek(t+1024):nex 



t:poke 792 

, 193: 

: sys 

4 

9152 




100 

data 

120, 

169, 

12, 

1 

41, 

20, 3 

110 

data 

169, 

192, 

141 

r 

21, 

3, 

96 

120 

data 

162, 

0, li 

39, 

64 

, 3, 

157 


130 

data 

0, 4, 

232, 

, 22 

4, 

40, 

208 


140 

data 

245, 

162, 

0, 

17 

2, 64, 

. 3 


150 

data 

189, 

65, : 

3, 1 

57 

, 64 

/ 

3 


160 

data 

232, 

224, 

39, 

2 

08, 

2 < 

15, 

140 

170 

data 

103, 

3, V 

69, 

0, 

141 

f 

32 


180 

data 

208, 

141, 

33, 

2 

08, 

1' 

11, 

134 

190 

data 

2, 23 

8 , i; 

34, 

2, 

76, 

L 

49,234 


Tekstbalk 

Auteur: Dusty Murray 

5 fort=0to46:read a:poke49152+t,a:ne 
xt:fort=832to832+40:poket,32:next 

10 a$="[CTRL-9][5xSPACE][CTRL-A][2xSP 

ACE][CTRL-A][4xSPACE]commodorere[S 
PACE]info[SPACE]!!![3xSPACE][SHIFT 
SPACE][5xSPACE]" 

20 print"[CTRL-2][SHIFT-CLR]";a$:fort 
= 0to4 0:poket + 832,peek(t + 102 4) :next 
:sys 49152 

20 0 datal20, 169, 12,141,20,3,169, 192, 14 
1,21,3,96,169,1,141,13 

202 data 2, 162, 0, 189, 64, 3, 157, 0 

203 data 4, 232, 224, 40, 208, 245, 169, 0 

204 data 141,32,208,141,33,208,76,49,2 
34,0,0,0,0,0,0 


Lijnen 

Bij het programma op lijnen moet u als uw een power car- 
tridge heeft die uitschakelen d.m.v quit 

0 print"[CTRL-G]":poke53265,100:poke 


52,48:poke5 6,48:clr:a=-l 
20 poke56334,peek(56334)and 254:poke 

l,peek(l)and 251:fori=0to2048 

40 pokei+12288,peek(i+53248):a=a+l:if 

a=7 then a=-l:pokei + 12288,255 

41 next 

42 poke l,peek(l)or 4:poke 56334,peek 
(56334) or l:poke 646,6:print"[SHI 
FT CLR]" 

70 poke53280,0:poke53281,1:poke64 6, 6 : 
print"[SHIFT-CLR]":poke53265,91:po 
ke 53272,28 

Bladomsla 

Auteur:Dusty Murray 

bladzijde is een elegantere manier om het beeld te wissen 
er wordt als het ware een bladzijde omgeslagen 

10 c=49152:fort=0to46 :readn:poket+c,n:next 

110 datal 62,255,189, 192,6,157,232,6,20 2,208, 247 
120 datal62,255,189,193,5,157,233,5,20 

2,208,247 

130 datal62,255,189,194,4,157,234,4,20 

2,208,247 

140 datal62,255,189,195,3,157,235,3,20 
2,224,60,208,245,96 
400 fort=1024tol064 :poket,160: 

sys c:next:fort—lto22:sysc:next 
410 fort=1024tol064 :poket,32 : 

sys c:next:fort—lto22:sysc:next 
420 print"[HOME][5xCRSR-DOWN][12xCRSR- 
RIGHT]commodore[SPACE]info 

Banden Ontwijken 

Auteur: Dusty Murray 

Dit is een eenvoudig spel waarbij u een auto bent onder¬ 
aan het scherm en u moet omhoog rijden en banden ont¬ 
wijken u bestuurt de auto d.m.v links- (,) rechts- (.) 

0 print"[CTRL-1][SHIFT-CLR]a$="W[C 
TRL 9] [4xSPACE]B[4xSPACE] [CTRL-0]W 
": sc=0 :poke 650,128:poke53280,0:po 
ke532 81,8 

10 c=49152:fort=0to46 :readn:poket+c, 

n:next:fort=54272to54295:poket, 0:n 
ext 

110 datal62,255,189,192,6,157,232,6,20 

2,208,247 

120 datal62,255,189,193,5,157,233,5,20 

2,208,247 

130 datal62,255,189,194,4,157,234,4,20 

2,208,247 

140 datal62,255,189,195,3,157,235,3,20 
2,224,60,208,245,96 
200 a=10:fort=ltol0:poke 1064+39*rnd(1 

) ,87:sys c:next:poke54 296,0:poke542 96, 15 
300 d=a+4 

400 sc=sc+l:poke54296,0:poke54296,15 
410 print"[HOME] [CRSR-DOWN]"tab (37*rnd 
(1))"WW":sys c 

431 ifpeek(1942+d)=87orpeek(1943+d)=87 
orpeek(1944+d)=87thengoto 600 
4 32 pokel94 2+d,81:pokel94 3+d,160:pokel944+d, 81 
440 getb$:ifb$=","and d>2then d=d-l 
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450 ifb$="."and d<37then d=d+l 
500 goto 400 

600 print"[CTRL-2][HOME]score:"sc:prin 
t M [CTRL-2][HOME][23xCRSR-DOWN]"tab 
(d-3)"boem!![HOME]" 

610 fort=ltol6step 2 :poke54296,t:poke 

54296,0:next:poke 54272,20:poke54273,20 
615 poke54278,112:poke54277,0 :poke54 
27 6, 128:poke5427 6, 12 9:poke542 96, 15 
620 fort=16to0step-.08:poke54296,t:pok 
e542 96, 0 : next 

Sprite in data 

Sprite in data is een programma om sprites, die in het ge¬ 
heugen staan in data regels te zetten het vraagt u 2 dingen 

1 welke sprite (0-255) b v sprite 13 staat acher geheugen 
832 (64*13=832). 

0 rem- 

2 print"[SHIFT-CLR][COM-5][2xSPACE]t 
ype[SPACE]-1[SPACE] (return) [SPACE] 
voor[SPACE]terug[SPACE]in[SPACE]ba 
sic”:poke53281,0:poke532 8 0, 12 

4 input"[COM-5][4xCRSR-RIGHT][4xCRSR 
-DOWN]welk[SPACE]sprite[SPACE]numm 
er[SPACE] (0 /2 55) ";a:a=a*64:if a<0thenend 
6 input"[9xCRSR-DOWN][2xCRSR-RIGHT]n 
a[SPACE]welke[SPACE]regel[SPACE]de 
[SPACE]data[SPACE]setten";dr:ifdr= 

-lthenend 

8 ifdrClOOthenprint"[10xCRSR-DOWN]?? 

?[SPACE]error[SPACE]:[CTRL-2]";:go 
to 22 

10 dr=dr+10:print"[SHIFT-CLR][3xCRSR- 
DOWN]":fortuito8:a$="" 

12 b$=str$(dr):b$=right$(b$,len(b$)-1 
):a$=b$+"[SPACE]data":b$="": fors=0 
to6 

14 b$=str$(peek(a+s)):b$=right$(b$,le 
n (b$)-1) :a$=a$+b$+",":b$="":next 
16 b$=str$(peek(a+7)):b$=right$(b$,le 
n(b$)-l):a$=a$+b$ 

18 printa$:dr=dr+10:a=a+8:next:print" 

[CTRL-1]run[SPACE]4[HOME]"; 

20 poke 198,11:fort=631to631+10:poket 
,13:next:end 

22 print"[CTRL-9]getal[SPACE]is[SPACE 
]te[SPACE]klein" 

24 print"[2xSPACE][CTRL-9]dat[SPACE]z 
ou[SPACE]dit[SPACE]programma[SPACE 
]overschrijden [CTRL-0 ][COM-5]" 

26 goto 4 

2 8 rem- 


Kleurenscrol 

10 poke53265,91:poke 53280,0:poke5328 
1,0:print"[COM-1][SHIFT-CLR]";:pok 
e53282,7:poke53283, 10 

20 a$="[COM-7][CTRL-9][2xSPACE][CTRL- 

7] [CTRL-9] [2xSHIFT-SPACE] " .-print" [ 
HOME]";:fort=ltol1::printa$;:next: 
fort=l064to2023 

30 poket,peek(t-40):poke54272+t,peek( 
54232+t):next:poke53284,2 


40 print" [HOME][ 1 lxCRSR-DOWN] ":fort=l 

to3:printtab(9)"[22xSHIFT-SPACE]":next 
45 print"[HOME][13xCRSR-DOWN]"tab(11) 

"[CTRL-2][2xSPACE]commodore[SPACE] 
info[2xSPACE]" 

50 poke53265,91:::poke53265,27::::goto 50 


Audio 

Auteur: Dusty Murray 

Audio is een programma om het bijvoorbeeld het begin van 
een programmatje op een bandje te vinden het werkt sim¬ 
pel : 

Run het programmatje ,stop een bandje in de datasette en 
houdt de funktie toets f-1 ingedrukt dan druk play op tape 
en wacht ondertussen f-1 gewoon inhouden als u genoeg 
heeft gehoord laat u fl los u zit dan weer in basic als u 
weer wat noddig heeft van bandje en u heeft al runstop 
restore gedaan typ dan sys 49152 (return) en gebruik f-1 
weer om na de cassette te luisteren u kunt na run gewoon 
new intypen als uw een ander basic programma heeft in¬ 
geladen en gerund dan werkt het programma nog steeds 
gewoon door het programma heen. 

5 b=0:f ort=0to 60:reada:b=b+a:poke 

49152+t,a:next:if b =7324thensys 49152:end 
10 print"[CTRL-2]fout[SPACE]in[SPACE]data!!!!" 

200 data 120,169,12,141,20,3,169,192 

201 data 141,21,3,96,166,197,224,4 

202 data 240,3,76,49,234,174,32,208 

203 data 142,64,3,169,0,141,32,208 

204 data 162,0,160,0, 173, 13, 220, 74 

205 data 141,32,208,141,24,212,232,208 

206 data 243,200,208,240,173,64, 3, 141 

207 data 32,208,76,49,234 
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afb. 2 geoFont edit-window 


Van dhr. Redering uit Ridderkerk ont¬ 
vingen wij een brief met de medede¬ 
ling dat zijn GEOS 2.0 niet naar beho¬ 
ren functioneert. Vermoedelijk is er 
iets fout gegaan bij het installeren. 
Hieraan kunnen wij echter weinig 
doen. Dit is een probleem voor de le¬ 
verancier. In uw geval kunt u zich het 
beste wenden tot de importeur van 
GEOS 2.0, FROTECH Nederland BV, 
postbus 189, 3620 AD Breukelen. 

Softwareproblemen 

Ook voor dhr. Weenink uit Borculo, 
die problemen heeft met GeoPublish, 
geldt dat hij contact op moet nemen 
met zijn leverancier. Verder is uit uw 
brief moeilijk op te maken wat het 
exacte probleem is. Daarom een ver¬ 
zoek van ons aan een ieder, als u een 
vraag of probleem heeft, beschrijf 
deze dan duidelijk. Korte, zakelijke en 
vooral duidelijke brieven kunnen wij in 
behandeling nemen. En voor soft¬ 
wareproblemen, zoals het niet goed 
functioneren van een programma, 
geldt dat u zich moet wenden tot de 
leverancier en niet tot onze rubriek. 


XBCDCjQwg/a:7moPQ%swf>u/. 

12.Z4567WQ r#\%&()0+-@*''no?:;= 

ABCDEFGHIJKLMNOPQK 3TUYWXYZ 
alxdefghijklmnopqrsuivwxyz 
1 254567890 !"«$%&'ÜI>-@*aj=<>? 


afb. 1 letterfonts 

Amiga en GEOS??? 

Dhr. A. Verheugd uit Den Bosch over¬ 
weegt om over te stappen van de 
Commodore 64 naar de Commodore 
Amiga 500. Hij is echter zeer tevre¬ 
den over GEOS en vraagt of het mo¬ 
gelijk is om GEOS op de Amiga te ge¬ 
bruiken. Helaas moeten wij u melden 
dat GEOS niet werkt op de Amiga. 
Deze computer heeft namelijk een to¬ 
taal andere microprocessor als de 
C64 en zal de GEOS machinetaalin- 


structies dus niet begrijpen. We kun¬ 
nen u voorts meedelen dat conversie 
soft- en hardware hiervoor ook niet 
verkrijgbaar is. Of GEOS ooit voor de 
Amiga op de markt komt is onwaar¬ 
schijnlijk, maar je weet maar nooit in 
deze tijd. 

Nederlandse handleidingen 

Dhr. C. Baas uit Zwijndrecht vraagt of 
GEOS 2.0 kan werken met twee disk¬ 
drives die hetzelfde devicenummer 
hebben. Dit is niet mogelijk. De ene 
drive moet devicenr. 8 hebben en de 
andere moet als devicenr. 9 zijn geïn¬ 
stalleerd. Op uw vraag of Qr een Ne¬ 
derlandse handleiding van GEOS 2.0 
is, kan ik u het volgende mededelen. 
Aan zo’n handleiding wordt momen¬ 
teel hard gewerkt. Medio juni zal er 
naar alle waarschijnlijkheid een Ne¬ 
derlands handboek GEOS 2.0 wor¬ 
den uitgebracht. We houden u hier¬ 
van uiteraard op de hoogte. 

Printerprobleem!! 

GEOS zou feilloos moeten werken 


met een STAR NX-10C printer, als 
het versie 2.0 betreft. Maar dhr. H. 
Reusink uit Amstelveen beschikt ech¬ 
ter alleen over GEOS 1.3. Misschien 
zou u een andere printerdriver (bv. 
STAR SG-10C) kunnen proberen. Als 
dit echter niet het beoogde resultaat 
oplevert blijft alleen de aanschaf van 
GEOS 2.0 over om het probleem op 
te lossen. Het is weliswaar niet de 
meest charmante oplossing, maar 
misschien wel de enige. 

FontPack Plus 

Het is in Amerika al een tijdje verkrijg¬ 
baar, maar nu ook in Nederland, 
FontPack Plus. De opvolger van 
FontPack 1 bezit maar liefst 53 ver¬ 
schillende lettertypes, oftewel letter¬ 
fonts, die u kunt gebruiken met GEOS 
op de C64 en Cl 28. Naast een flink 
aantal letters en karakters, zijn er ook 
symbolen op de diskette aanwezig. 
Dit zijn o.a. Ashby 23, Barrington 
16/32, Hillgord I 28 en Hillgord II 28, 
Laurence 12, McLauglin 18 en Wur- 
ster 25. Voor mensen die braille willen 
leren is er Braille 12/24. 
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Verschillende fonts van Fontpack Plus 


En mocht u aan deze hoeveelheid 
fonts nog niet genoeg hebben dan 
kunt u met de meegeleverde applica¬ 
tie GeoFont, zelf letterfonts ontwer¬ 
pen. Of wanneer u een bestaande 
font wilt wijzigen. Hierbij kunt u den¬ 
ken aan het aanpassen van enkele 
karakters, die u met een leesteken 
wilt uitrusten, zoals ï, é, ë, enz. De 
fonts zijn gemakkelijk te ontwerpen, 
met de zgn. pixel-edit modus. Blokje 
voor blokje bouwt u een letter op en 
het resultaat is steeds op ware grootte 
op het scherm zichtbaar. 

De grootte van de font wordt steeds in 
points en in bytes weergegeven. 
Ook het wijzigen van het ID (identifi¬ 
catie) van een font is mogelijk. Een 
handig programma om zelf met letter¬ 
fonts te experimenteren. FontPack 
Plus kost momenteel fl. 149,00. 

GEOS Gebruikers Groep 

In de vorige Commodore Info maak¬ 
ten we al melding van de fa. Compu- 
trans uit Almere. Computrans was op 
het gebied van GEOS zeer aktief. 
Deze aktiviteiten zijn nu zo positief 
ontvangen, dat men heeft besloten de 
aktiviteiten nog verder uit te breiden. 
Dit houdt ondermeer in dat er een 
Geos Gebruikers Groep is opgericht, 


die zich ten doel stelt het gebruik van 
GEOS nog meer bekendheid te ge¬ 
ven. Tevens verzorgt deze Geos GG 
ondersteuning bij GEOS applica¬ 
ties.De uitgave van een nieuwsbulle¬ 
tin is tevens één van de zaken die 
door de Geos GG worden gereali¬ 


seerd. Verder behoort het geven van 
van cursussen in GEOS tot de werk¬ 
zaamheden van deze gebruikers¬ 
groep. Voor meer informatie kunt u 
zich wenden tot Geos Gebruikers 
Groep, postbus 52, 1300 AB Almere. 


Geochart-64 


Geef Uw numerieke data een visuele impact met GEOCHART. Laadt data van GEOS 64, GEOS 
128, GEOWRITE WORKSHOP 64, GEOWRITE WORKSHOP 128, GEOFILE 64, GEOFILE 128, 
GEOCALC 64, GEOCALC 128. GEOCHART 64. Verwerkt de numerieke data tot- puntdiagrammen 

- staafdiagrammen 

- taartdiagrammen 

- unibars scatter puntkaarten 

- scatter lijnkaarten 

- puntkaarten 

- lijnkaarten. 

De gemaakte diagrammen en kaarten zijn o.a. in te laden en te gebruiken in: GEOPAINT, GEOWRITE 
en GEOPUBLISH en uiteraard af te drukken met de GEOS-Compatible printers. Het pakket steunt alle 
53 fonts van GEOS DESKPACK +. De gebruiksaanwijzing omvat maar liefst 115 pagina’s. 


GEOCHART-64 kost UU — 

(incl. verzendkosten) J 

Te bestellen door overmaking t.g.v. giro 5641219 van Salasan 
Amsterdam o.v.v. GEOS 2.0 


SALASAN 


GEOS Het vertrouwen in de toekomst. 


Amsterdam Giro 5641219, Tel. 020-203219 
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Maak uw numerieke gegevens nu nog aanschouwelijker met GeoChart, de nieuwste 
aanwinst in de GEOS familie. Importeer resultaten uit GEOS georiënteerde program¬ 
ma’s zoals tekstverwerkers, spreadsheets of gegevensbestanden. Maak op deze 
manier bedrijfsresultaten tot een grafisch hoogstandje. GeoChart is bij uitstek geschikt 
voor huishoudelijke budget analyses, club- statistieken en "what if projecties. 


GEOCHART 

Met een plaatje zeg je meer 


N umerieke en virtuele gegevens worden op een snelle en eenvoudige 
manier zichtbaar gemaakt, wanneer men GeoChart gebruikt. Met de 
gebruikelijke WYZIWYG weergave, pull-down menu’s en eenvoudig te ge¬ 
bruiken iconen en vensters biedt GeoChart een volwaardig pakket. Profes¬ 
sionele grafieken worden met één klik en een selectie uitgevoerd met de 
snelheid, die u van GEOS bent gewend. 



H et heeft even geduurd, maar nu 
is het er eindelijk, een applicatie 
om de cijfertjes uit bv. GeoCalc om 
te zetten in een goedogende gra¬ 
fiek. Voordat GeoChart op de markt 
verscheen, was het evenwel ook 
goed mogelijk om grafieken te ver¬ 
vaardigen met één van de GEOS 
applicaties, namelijk GeoPaint. 
Probleem hierbij was echter dat de 
verhoudingen tussen de verschil¬ 
lende delen niet altijd overeen¬ 
stemden met de bijbehorende ge¬ 
tallen. Dit werd voornamelijk ver¬ 
oorzaakt omdat men zelf de delen 
moest tekenen. Dit behoort, met de 
komst van GeoChart, tot het verle¬ 
den. Het pakket bevat maar liefst 9 
verschillende "chart" diagrammen, 
waaronder taart-, gestapelde-, lijn-, 
balk-, en kolomgrafieken, zie afb. 1. 



afb. 1 taartdiagram 


De gegevens die de basis vormen 
voor de grafiek worden geïmporteerd 
uit één van de volgende GEOS appli¬ 
caties, GeoWrite, GeoCalc, GeoFile 
of uit een NotePad file. Nadat deze 
gegevens in de respectievelijke pro¬ 
gramma’s zijn gegenereerd worden 



afb. 2 componenten 

ze ingelezeh in GeoChart. De actuele 
afmetingen van een grafiek is afhan¬ 
kelijk van de gebruikte printer, zo’n 7 
bij 9 cm. Hoe gaat het vervaardigen 
van een "chart” nu in z’n werk? 

Het creëren van een grafiek 

Eerst dient u de basisgegevens te 
vervaardigen. Deze kunnen bijvoor¬ 
beeld als resultaten uit een GeoCalc 
file afkomstig zijn. Indien u niet over 
deze krachtige spreadsheet beschikt, 
kunt u ook gebruik maken van de No¬ 
tePad applicatie. Maar het meest voor 
de handliggend zijn natuurlijk gege¬ 
vens afkomstig uit GeoCalc, omdat 
men doorgaans in een spreadsheet 
met getallen werkt. En deze getallen 
vormen de basis voor het GeoChart 
file. Wanneer u gegevens uit één van 
de eerder genoemde applicatie’s ge¬ 
bruikt, dient u ze in een zgn. "texts- 
crap" te copiëren. 

Vervolgens wordt de "textscrap" inge¬ 
voegd in een GeoChart document. 
GeoChart verdeelt de gegevens in 
een viertal componenten, te weten de 


grafiektitel, de waarden, de seriena- 
men en catagorienamen, zoals weer¬ 
gegeven in afb. 2. 

Wanneer u eenmaal het onderscheidt 
weet te maken tussen de verschillen¬ 
de componenten, is eenvoudig te le¬ 
ren hoe deze componenten in een 
grafiek uit te zetten. Op het moment 
dat u gegevens invoegt zal de data- 
modus worden geactiveerd. Deze 
modus stelt u in staat de verschillen¬ 
de gegevens van de componenten te 
bekijken. Het data-modus dialoog¬ 
venster, zie afb. 3, geeft de verschil¬ 
lende waarden en de bijbehorende la¬ 
bels weer. 



afb. 3 Data-modus 


Men selecteert een gedeelte van de 
"textscrap" door een corresponde¬ 
rend hokje aan te klikken met het aan- 
wijspijltje. Nadat u gereed bent met 
het bekijken van de gegevens, klikt u 
op het chart-icoon, waarna de grafiek 
zal worden getekend. In de chart-mo- 
dus bestaat de mogelijkheid om de 
verschijningsvorm van de grafiek in 
verschillende opzichten te wijzigen. 
Ten eerste is er de chart-style. Met 
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deze keuze die uit de menubalk wordt 
geselecteerd bepaalt u of de grafiek 
moet verschijnen als area-, balk-, ko¬ 
lom-, taart-, lijn-, gespreid-punt-, ge- 
spreid-lijn-, punt- of stapelkolomgra- 
fiek moet verschijnen. Met de optie 
text kunt u naar eigen believen ver¬ 
schillende labelnamen wijzigen. Het 
is hierbij niet alleen mogelijk om het 
letterfont, de stijl, grootte en inhoud te 
wijzigen, maar u kunt ook bepalen of 
de tekst al of niet moet worden weer¬ 
gegeven. Met de keuze markers kunt 
u de wijze waarop de waarden binnen 
de grafiek worden weergegeven aan¬ 
passen. Hierbij is het eveneens mo¬ 
gelijk de invulpatronen van de ver¬ 
schillende markers te veranderen. Er 
staan de gebruiker maar liefst 32 vul- 
patronen ter beschikking. Indien een 
marker bestaat uit een punt zijn 
slechts vier mogelijkheden aanwezig. 
Axis values (as-waarden) vormen 
automatisch de invoer voor GeoChart 
en zijn derhalve de basis voor de te 
maken grafiek. Tot de mogelijkheden 
behoort onder meer ook het invoeren 
van negatieve waarden. Daarnaast 


bestaat de mogelijkheid om de format 
van de waarden aan te passen, zodat 
deze als bv. dollars, procenten of de¬ 
cimalen worden getoond. Tenslotte 
kan de gebruiker het achtergrond-ras- 
ter in drie verschillende verschijnings¬ 
vormen wijzigen. Ten alle tijde kun¬ 
nen de waarden in de data-modus 
worden geselecteerd. 

Wat te doen met een grafiek? 

Nadat een grafiek is ontworpen, con¬ 
form de gebruikerswensen, bestaat 
de mogelijkheid deze te copiëren 
naar een ander document. Ge- 
oChart’s file-management, die u in 
staat stelt een document te "updaten", 
te copiëren, van naam te veranderen 
of te printen, werkt op dezelfde ma¬ 
nier als alle andere GEOS applica¬ 
ties. Net zoals bij de andere GEOS 
applicaties, bestaat de mogelijkheid 
om de Desk Accessoires, zoals cal¬ 
culator, Note Pad, clock enz. te ge¬ 
bruiken, terwijl u met GeoChart bezig 
bent. 


Conclusie 

GeoChart is, evenals alle andere 
GEOS produkten, zeer prettig in het 
gebruik. Om daarvan een voorbeeld 
te geven, toen ik over een proefversie 
de beschikking had, kon ik zonder 
handleiding alle functie’s van het pro¬ 
gramma uitvoeren, met een fraai re¬ 
sultaat. In aanvulling op GeoCalc is 
deze applicatie een must voor de se¬ 
rieuze GEOS gebruiker, die regelma¬ 
tig met getallen werkt en resultaten op 
een goed ogende wijze wil presente¬ 
ren. GeoChart en GeoCalc vormen 
tesamen een pakket, dat te vergelij¬ 
ken is met het PC-pakket EXCEL. 
GeoChart werkt op de Commodore 
64/128, met dien verstande dat de 
128 gebruikers eerst naar de 40-ko- 
lommodus moeten overschakelen. 
GeoChart wordt geleverd in een keu¬ 
rige doos, met één diskette en een 
duidelijke (helaas) Engelse handlei¬ 
ding, voor een prijs van fl. 89,00. 

Bert Venema 
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C-128 



Zoals we het in het laatste nummer van het vorige jaar al vertelden, komen we nu in 
een stroomversnelling terecht. Dit keer gaan we het bijna magische gebeuren omtrent 
de BOOT sector nader bestuderen. Al vele keren viel het ons op dat er nog voldoende 
vraagtekens over de bootsector bestaan. Om aan al deze vragen een einde te maken 
zullen we eens proberen om de gehele boot zaak bloot te leggen. ^ 


B oot staat voor ’laars’ en wordt gebruikt om bij MS-DOS 

computers het systeem in te laden. Het is als het ware een interface 
tussen systeem en hardware. Met de bootcall, wat zoiets betekend als 
aanroep, kunnen we een heleboel verschillende zaken ondernemen. Met 
deze bootcall kunnen we volautomatisch een programma inladen en opstar¬ 
ten. De qeqevens over de in te laden software staat in de zogenaamde 
bootsector. De bootsector kunnen we bij de Cl 28 vinden op track 1 sector 
0. Om nu eerste de kreten track en sector, voor de nog niet ingewijde onder 
ons, te verklaren volgt de volgende uitleg 

Elke diskette heeft van deze tracks en 
Een Commodore formaat 


0O^; ÖQ 00 Of 00 f|y33^b0 §e dO bc ÜU /< 

bi/7%06 


sectoren 

diskette heeft 35 tracks. Elke track 
heeft sectoren, alleen is het aantal 
niet hetzelfde. Neem maar eens een 
diskette in de hand, en bekijk deze 
maar eens goed. Zo zult u twee inke¬ 
pingen aan de onderkant van de dis¬ 
kette kunnen vinden. Deze zorgen er 
voor dat de diskettehoes precies op 
de juiste plaats blijft zitten in de drive. 
Het ovale gat aan de onderkant is de 
opening om de gegevens van schijf te 
kunnen inladen. Het grote gat in het 
midden is om de diskette door de dri- 
vemotor te laten rond draaien. Een 
diskette heeft dus ook een onder- en 
bovenkant! Dus heeft de diskette 35 
sporen, zoals we de track ook wel 
noemen, aan de onder- en 35 sporen 
aan de bovenkant. In totaal dus 70. 
Een 1540/41 kan maar 35 sporen ge¬ 
bruiken omdat deze drive enkelzijdig 
is (Single Sided, SS). Met veel truuk- 
werk kunnen ook 40 sporen op een 
diskette worden geplaatst. 


kant 19 sectoren af voor de directory. 
19 omdat op spoor 18 19 van deze 
sectoren staan. Die 38 sectoren, voor 
de beide kanten 19, gaan van het to¬ 
tale vrije aantal sectoren af. 1366- 
38=1328 en zo komen we dan aan 
ons vrije aantal sectoren per dubbel¬ 
zijdige diskette. De 38 sectoren wor¬ 
den gebruikt om filenamen in op te 
slaan. Ook staat daar onder andere 
het type van de file. Maar tot zover 
deze disk informatie. 


Directory 

Wanneer we een nieuwe diskette 
pakken en deze formatteren met 
:"header"disknaam",i89 krijgen we 
een bruikbare diskette. Een nieuwe 
diskette moet dus altijd eerst worden 
geformatteerd. We brengen dus ons 
gebruikte formaat aan. De diskette 
wordt dus volgens het Commodore 
formaat ingedeeld. Na het formatte¬ 
ren zijn er 1328 sectoren, ook wel 
blocks vrij op de diskette. In totaal zijn 
er 1366 sectoren, maar we willen ook 
nog een inhoud opgave van de disket¬ 
te hebben. Bij de dubbelzijdige disket- 

t6S 

(Doublé Sided, DS), zijn er omdat er 
ook twee kanten zijn, ook twee van 
deze inhoudsopgave nodig. Een op 
kant 0 en een op kant 1. Omdat bij het 
Commodore formaat de directory, zo 
wordt de inhoudsopgave ook wel ge¬ 
noemd, op spoor 18 staat gaan er per 


Sectoren 

De onderstaande tabel geeft het aan 
tal sectoren per spoor aan: 


Het booten 

Bij het aanzetten van de Cl 28 gebeu¬ 
ren in de computer een heleboel ver¬ 
schillende dingen. Een daarvan is de 
aanroep van PHOENIX. Dit is de aan¬ 
roep, koude start, bij het aanschake¬ 
len van de Cl28. Deze routine, want 
dat is het gewoon, in de kernal van de 
computer begint op $FF56 Via dit 
adres gaat de routine naar $F867 En 


spoor 1-1/ öBULUieii. 

spoor 18 — 24 19 sectoren. 

spoor 25 - 30 18 sectoren, 

spoor 31 - 35 17 sectoren. 

De bovenstaande tabel laat dus direct 
de indeling van een diskette zien. Zo 
zijn er dus lange en korte sporen. Dus 
des te lager het spoor des te lager het 
aantal sectoren per spoor. 
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1000 

1001 

1002 

1003 

1004 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


rem 




1220 

(y/n) ?" 


rem"* Boot-Block Writer voor de Commodore 128 (d) **" 

rem"*Door Johan & Johan voor COMMODORE INFO in 1989. *" 

rem"****************************************************" 

• 

• 

print chr$(14)chr$(147)+"BOOT-BLOCK WRITER" 
open 8,8,8,"#" 
open 15,8,15 
print#15,"b-a:"0,1,0 
input#15,a,b$,c,d 
if a=0 then goto 1120 
if a<>65 then print a,b$,c,d:goto 
print "Block is in use. Overwrite 
get a$:ifa$=""then goto 1090 
if a$="y" then goto 1120 
goto 1220 

print#15,"b-p:"8; 0 

for x= 0 to 255 
a$=chr$(peek(48 64+x) ) 
print#8,a$; 

if st<>0 then goto 1220 
next x 

print#15,"b-p:"8;0 
print#15,"u2:"8;0;1;0 
close 8:close 15 
end 


eenmaal hier aangekomen kontro- 
leert de computer of er ook een mo¬ 
dule in de expansiepoort zit. Zo niet 
gaat hij verder met de BOOTCALL. 
Eerst worden het A- en X-register met 
een waarde geladen. In het X-register 
staat het device nummer van de drive. 
In de kernal staat er 8 voor het stan¬ 
daard device. Verder wordt er in het 
A-register een 0 ingeladen. De boot- 
sector wordt in de bootbuffer, $0b00, 
via een block-read instructie ingela¬ 
den. Vervolgens wordt er gecontro¬ 
leerd op de kenmerken CBM, wat 
staat voor Commodore Business Ma¬ 
chines. De bootcall wordt afgebroken 
wanneer deze kenmerken niet wor¬ 
den aangetroffen. 

De melding 

U krijgt een melding van het systeem 
op uw scherm met de filenaam of de 
door de programmeur gewenste aan¬ 
duiding. Deze melding wordt niet zo¬ 
als Databecker verklaart in zijn IN¬ 
TERN, door BSOUT op uw scherm 
gezet maar door de kernal routine 
PRIMM! Waarschijnlijk was bij het uit¬ 
geven van de Intern nog niet alles be¬ 
kend van de Cl28. U kunt dus zelf 
kiezen of u wel of niet een melding 
met filenaam wilt hebben. Hoe, daar 
komen we straks nog wel op terug. 
Het is dus theoretisch mogelijk om 
met alleen de melding ’Booting...” op 
het scherm een file in te laden. Om 
nog verder te gaan, en helemaal zon¬ 
der melding op het scherm te komen, 
is de volgende truuk wel handig. U 


maakt van de filenaam de instructie 
scherm schoon! Dus $93 als filenaam 
opgeven, deze wordt dan door 
PRIMM om het scherm gezet en weg 
is de melding booting... 

Het voorbeeld 

Om onze uitleg wat duidelijker te laten 
overkomen hebben we het volgende 
bedacht. We laten het gewoon zien! 
Hieronder zult u zien wat er nu pre¬ 
cies in die bootsector staat. Of liever 
gezegd wat er zou kunnen staan. U 
heeft wel een diskmonitor nodig!! 
Plaats op spoor 1 sector 0 de onder¬ 
staande drie bytes! 

byte $00 $01 $02 
43 42 4d 

Bij dit voorbeeld zal de bootcall eindi¬ 
gen in de monitor, met een break op 
$0b0b Maar de routine deed zijn werk 
en ging booten. Kijk nu maar een met 
de monitor vanaf $0b00 U zult zien 
dat de kenmerken vanaf dit adres te 
zien zijn. In de bootsector kunt u aan¬ 
geven dat u een programma wilt inla¬ 
den en opstarten. De volgende toe¬ 
voeging zult u bij ons bovenstaande 
voorbeeld moeten aanbrengen om 
wat te kunnen inladen. Dus dit zijn de 
volgende vier bytes die na de drie 
hierboven genoemde bytes moeten 
worden geplaatst. 

byte $03 $04 $05 $06 
00 13 00 01 


Door deze aanvulling zal er vanaf 
adres $1300, de bytes 03 en 04 om¬ 
gedraaid, 1 blok, byte 06, in bank 0, 
byte 05 worden ingeladen. Ook hier 
volgt een break in de monitor op 
adres $0b0b. Samengevat zijn dus de 
eerste drie bytes het boot kenmerk 
’CBM’. De volgende twee voor het 
adres waar de in te laden routine, 
software, moet komen te staan. De 
vijfde byte is om aan te geven in wel¬ 
ke bank, 0 of 1, de software moet wor¬ 
den ingeladen. Byte 6 geeft aan hoe¬ 
veel blokken, sectoren, er moeten 
worden ingeladen. Na dit voorbeeld 
zouden we een melding op het 
scherm kunnen laten verschijnen bij 
het booten. Wat dacht u van:”Boot 
demo by J&J" Er moeten dus weer 
wat bytes achter de reeds door u in¬ 
gevoerde bytes op spoor 1 sector 0 
komen te staan. U plaatst de data dus 
vanaf $07 I! 

byte $07 enz enz 

93 c2 4f 4f 54 44 45 
4d 4f 20 42 59 20 ca 26 ca 
00 00 00 

Door deze toevoeging krijgt u onge¬ 
veerde melding op uw scherm:"Boot- 
demo by J&J...”. En weer kwam u in 
de monitor, en om daar een einde aan 
te maken plaatsen we achter de mel¬ 
ding een afsluiter ’00’ en daarachter 
de volgende data: 

00 00 4c 03 40 

Hierdoor springt na het booten de 
bootcall routine naar $4003 en krijgt u 
een cursor met daarboven ’ready’. 
Maar bij een koude start staat de ka¬ 
rakterset op UPPERCASE en daarom 
kunt u het beste voor de 93 een 0e 
neerzetten. Dus ervoor en niet in 
plaats van !! Hierdoor wordt eerst de 
karakterset in de LOWERCASE gezet 
en daarna het scherm gewist. Na het 
wissen van het scherm komt dan 
onze melding op het scherm te staan. 
Zoals gezegd met PRIMM en niet met 
BSOUT en daarom dient u uw tekst 
met een 00 af te sluiten. De eerst vol¬ 
gende 00 geeft aan dat er geen file 
met een filenaam hoeft te worden in¬ 
geladen. Een heleboel disk beveiligin¬ 
gen doen zo hun eerste werk! Eerst 
laden ze een file in, die niet direct 
zichtbaar is en daarin staat dan ook 
heel vaak de software beveiliging! De 
bytes 4c 03 40 staan voor 

’JMP$4003’ waar de normale warme 
start begint. U zou in plaats van 
JMP$4003 dus ook naar een ander 
nuttig, of onnuttige, routine springen. 
De sector die door ons voorbeeld 
wordt ingeladen is sector 1 van spoor 
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1000 

1001 

1002 

1003 

1004 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 


rem "** Boot-block-reader voor de C-128(d) 

rem"**Door Johan & Johan voor COMMODORE INFO in 1989.**" 


rem «**************************************************** 

• 

color6,1:printchr$(14 7)chr$(14)chr$ (5) 
print "BOOT-BLOCK READER" 
open 8,8,8,"#" 
open 15,8,15 
print#15,"ul:"8;0 ; 1; 0 
for x=0 to 255 
get#8,a$ 

poke 4864+x, asc(a$ + chr$(0) ) 
next x 

close 15:close8 
block : =4864 :a=0 
for x=0 to 2 
a=a+peek(block+x) 
next x 

if a<>210 then print "No boot-block":end 
if peek(block+3)=0 and peek (block+4)=0 then goto 1220 
a=(peek(block+3)+256*peek(block+4)) 
print"Beginadres dec:";a 
print"Beginadres hex: ";hex$(a) 

print "Bank : M print(peek(block+5) ) 

print "Blocks : " ; : print(peek(block+6) ) 

print "Name : " / 

byte=7:gosub 1350 
b=8 + a 

if peek (block+b)=0 then print "No filename":goto 1280 

print "Filename 
byte=b:gosub 1350 
b=b+a+l 
print 

a$=hex$(peek(block+b)) 

print right$ (a$, 2);chr$(32) ;chr$ (32);:b=b+l 
if b=255 then goto 1340 
goto 1300 
end 
a=0 

x=peek (block+byte+a):if x=0 
if x<64 or (x>128 and x<161) 
print chr$(x); 
a=a+l:goto 1360 
print 
return 


tl 


then goto 1400 
then goto 1390 


1. Wilt u twee sectoren inladen, door 


ma op 40 cis is!! 


02 op byte 6 neer te zetten, dan zal de 
volgende sector 2 van spoor 1 zijn. En 
zo gaat het als maar verder. 

En verder 

We kunnen dus zelf uitmaken in wel¬ 
ke bank en vanaf welk adres onze 
routine wordt ingeladen. Ook kunnen 
we zelf beslissen waar de routine 
moet opstarten. Een goede program¬ 
meur kan dit zelfs zo goed wegwer¬ 
ken dat u niet eens kan zien waar zijn 
routine opstart. Hij zou dit bijvoor¬ 
beeld met illegale opcodes kunnen 
doen. En zeker voor de niet geheel in¬ 
gewijde programmeur kan dit zeer 
frustrerend werken. We kunnen bij¬ 
voorbeeld gewoon even overschake¬ 
len naar de C64 mode, zonder dat de 
software gebruiker het in de gaten 
heeft. Een voorbeeld van een derge¬ 
lijk truuk is CHESSMASTER 2000. 
Welke dus gewoon een C64 program- 


Virus 

Nu weet u dus ook direct hoe een VI¬ 
RUS te werk gaat en kunt u daar te¬ 
gen in het harnas gaan. Met de be¬ 
sproken informatie zou u ook een VI¬ 
RUS kunnen maken maar dat is niet 
ons doel. Bovendien weet iedereen 
nu ook hoe het werkt, en heeft het dus 
toch geen zin meer. 

De boot-block reader 

Met behulp van block read wordt van¬ 
af track 1 sector 0 het bootblock inge¬ 
laden , deze wordt dan vervolgens in 
het geheugen op adres $1300 wegge¬ 
zet. Eerst wordt er gecontroleerd op 
CBM om te zien of er een bootblock 
op de schijf staat, is dit niet het geval 
dan zal dit worden aangegeven met 
NO BOOT BLOCK. Is dit wel het ge¬ 
val dan gaat het programma verder. 


Nu worden byte $03 en $04 binnen 
gehaald om te kijken of er een starta- 
dres wordt aangegeven om te zien 
waar het programma begint. Het start¬ 
en eindadres worden zowel decimaal 
als hexadecimaal aangegeven. 

Nu wordt gekeken in welke bank het 
moet worden ingeladen en hoeveel 
blocks het programma lang is. Hierna 
wordt er naar een titel gezocht en in- 
dien aanwezig op het scherm gezet 
(bv. Booting Chessmaster2000). Ver¬ 
volgens wordt er naar een eventuele 
filenaam gezocht om het eventuele 
programma in te laden. En tenslotte 
wordt de bijbehorende hexadecimale 
code op het scherm afgeprint. U kunt 
dit ook allemaal weer terugvinden op 
adres $1300, waar het bootblock zich 
op dat moment bevindt. 

Demo- bootblock 

Het volgende programma is een 
demo. Deze demo laat zien dat je een 
programma (in dit geval een keuze 
menu) van uit de bootsector kunt op¬ 
starten. Nadat u de DEMO-BOOT- 
BLOCK heeft ingetypt doet u het vol¬ 
gende: U start het programma op , nu 
wordt dit bootblock via de data loader 
omgezet in machinetaal, die u op 
$1300 in het geheugen kunt vinden. 
Nu rest ons alleen nog het inladen 
van de boot-writer en het op te star¬ 
ten. Nu wordt het demo bootblock uit 
het geheugen van de 128 op schijf 
(track 1, sector 0) weggeschreven. 
Boot intikken en Hoppa daar is uw 
demo bootblock. U hebt nu de keuze 
uit een drietal mogelijkheden name¬ 
lijk: 

1. C-64 

2. C-128 basic 

3. C-128 monitor 

Door de eerste optie te kiezen gaat u 
naar de 64 mode. Het programma 
springt nu namelijk naar de kernal 
routine G064, die staat op adres 
$E24B. De tweede en derde optie 
spreken voor zich, in het eerste geval 
gaat u dus gewoon naar de basic en 
meldt de computer zich met ready. In 
het tweede geval springt u direct in de 
monitor. Het keuzemenuprogramma 
kan dus op elke schijf worden wegge¬ 
schreven, maar denkt u er wel om dat 
er geen andere bootsector op de 
schijf aanwezig is. U bent dan name¬ 
lijk alle informatie die in deze bootsec¬ 
tor stond kwijt. Om dit te controleren 
kunt u dus de boot-block reader ge¬ 
bruiken. 
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Anti Reset 128 

Dit programma zal u niet nieuw in de 
oren klinken. Nadat dit programma 
werd geplaatst hebben we vele vra¬ 
gen gehad of de anti reset niet in de 
bootsector kon worden geplaatst. 
Omdat we toch al bezig waren met de 
bootsector bloot te leggen hebben we 
dit dan maar even geregeld. Het pro¬ 
gramma gaat precies het zelfde te 
werk als bij de boot-menu writer. U 
kunt dus de anti reset 128 op elke 
schijf in de bootsector wegschrijven. 

Boot-block writer 

Zoals we al eerder in de tekst hadden 
opgemerkt hebben we een handige 
boot-block writer geschreven, dit pro¬ 
gramma staat elders in het blad afge¬ 
drukt. Met behulp van deze kleine uti- 
lity en de informatie die wij u in dit ar¬ 
tikel hebben gegeven kunt u zelf uw 
eigen boots maken. U beschouwd het 
geheugen deel vanaf adres $1300 tot 
$1400 als track 1 sector 0 van de dis¬ 
kette. Met een eenvoudige machine- 
taalmonitor maakt u dan het boot- 


block zoals u dat hebben wil in het ge¬ 
heugen van uw 128. Vervolgens kunt 
u deze dan weer met de boot-block 
writer wegschrijven. Ditzelfde wordt 
immers ook gedaan bij het demo- 
bootblock programma. Ook kunt u net 
als wij met de demo-boot block ge¬ 
daan hebben deze doormiddel van 
een data-loader op $1300 zetten, aan 
u dus de keus! 


Tot slot 

Wij hopen dat wij u met deze informa¬ 
tie en programmatuur van dienst zijn 
geweest, en dat al uw vragen over de 
bootsector beantwoord zijn. Als u nog 
handige tips heeft over de bootsector 
laat het dan even weten ja, dan kun¬ 
nen de andere lezers er ook van mee 
profiteren. 


1000 rem"********************************** 

* * * * * ***********11 

1010 rem"* ANTI RESET 128 in de bootsector 
voor de C128(d) *" 

1020 rem"* door Johan & Johan voor COMMODORE 
INFO 1989. *" 

1030 rem"************************************ 
1040 : 

1050 print chr$ (14)chr$(147)+"ANTI RESET 128 
BOOT WRITER" 

1060 :for x = 4864 to 5087 

1070 : read a 

1080 : cs=cs+a:poke x, a 

1090 : poke x,a 

1100 :next x 

1110 : 

1120 if cs<>20832 then printchr$(7):list:end 
1130 : 

1140 open 15,8,15 
1150 open 8,8,8,"#" 

1160 print#15,"b-p:"8;0 
1170 print#15,"b-a:"0;1;0 
1180 input#15,a,b$,c,d 
1190 if a=0 then goto 1260 

1200. if a<>65 then print a,b$,c,d:goto 1340 
1210 print "Block is in use. Overwrite (y/n) 

? " 

1220 get a$:if a$="" then goto 1220 
1230 if a$="y" then goto 1260 
1240 goto 1340 
1250 : 

1260 :for x=0 to 255 

1270 : a$=chr$(peek(4864+x)) 

1280 : print#8,a$; 

1290 : if st<>0 then goto 1340 
1300 :next x 


1310 : 

1320 print#15,"b-p:"8;0 
1330 print#15,"u2"8;0;1;0 
1340 close8:closelS 
1350 end 
1360 : 

1370 data 067,066,077,000,019,000,001,065, 
078, 084,073,045, 082,069,083,069 
1380 data 084,032,049,050,048,000,000,162, 
210, 189,036,011, 157,255,018,202 
1390 data 208,247,076,000,019,169,248,133, 
250, 169,255,133, 251,169,250,141 

1400 data 185,002,169,044,162,001,160,000, 
032, 119,255,169, 249,133,250,169 

1410 data 255,133,251,169,250,141,185,002, 
169, 019,162,001, 160, 000,032,119 

1420 data 255,032,009,225,032,123,192,032, 
061, 246,201,239, 208, 003,032,139 

1430 data 248,036,215,016,005,169,001,076, 
071, 019,169,000, 141, 048,208,162 
1440 data 000,189,110,019,157,000,016,232, 
224, 076,208,245, 032, 125,255,014 

1450 data 147,193,078,084,073,032,210,069, 
083, 069,084,032, 049, 050,056,000 

1460 data 076,003,064,006,006,012,012,005, 
005, 006,004,004, 006, 147,070,065 

1470 data 083,084,013,147,083,076,079,087, 
013, 068,076,079, 065, 068,009,009 

1480 data 009,032,032,032,013,066,076,079, 
065, 068,009,009, 009, 032,032,032 

1490 data 013,147,068,073,114,013,147,082, 
085, 078,013,147, 076, 073,083,084 

1500 data 013,077,079,110,013,147,066,111, 
013, 147,072,069, 076, 080,013,255 
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Computer Aided Design is niet meer uit de moderne architectuur en industrie weg te 
denken. Van de bouwtekeningen voor uw zomerhuisje, electronische circuits voor 
audio-apparatuur, lenzenstelsels voor camera’s tot spaceshuttles, alles rolt tegen¬ 
woordig uit de door CAD-software gestuurde computer. Vroeger was CAD een toe¬ 
passing voor grote systemen. De laatste tijd is de CAD-techniek echter in een stroom¬ 
versnelling geraakt en verschijnen steeds meer systemen voor de kleine kantoor- en 
microcomputergebruiker. Ook voor de Commodore C-128 (en natuurlijk de Amiga en 
CBM PC’s) zijn inmiddels een aantal CAD-pakketten beschikbaar gekomen. 



C AD ging van mainframe naar minicomputer en van minicomputer naar 
microcomputer. Een C-128 is uiteraard iets anders dan een PC. CAD op 
de Commodore kan daarom nooit zo uitgebreid zijn als op een groter 
systeem, maar als introductie tot de CAD-techniek is een Commodore-huis- 
computer zo gek nog niet. Wij zien CAD op de Commodore C-64 en C-128 
daarom als leerpakketten die de hobbyist en student de mogelijkheden van 
CAD laat zien. Bovendien zijn een aantal tekeningen op kleinere schaal, 
bijvoorbeeld de bouwplannen voor een schuurtje of een enkel mechanisch 
onderdeel, best bruikbaar. Huiskamer-CAD slaat in deze naast kantoor-CAD 
zeker geen slecht figuur. 


Wat is CAD? 


Achter het begrip Computer Aided 
Design schuilt veel meer dan alleen 
het maken van technische tekenin¬ 
gen. Na installatie gaat voor de ge¬ 
bruiker een geheel nieuwe wereld 
open van grafische ontwerpen, illus¬ 
traties (art work, dia’s, overheads- 
heets) stroomdiagrammen, bedra- 
dingsschema’s, layout van formulie¬ 
ren, bouwtekeningen, spreadsheet en 
tekstverwerkings-toepassingen. Be¬ 
trekkelijk nieuw zijn de Amiga beken¬ 
de simulaties waarbij de klant bijvoor¬ 
beeld op de monitor kan bekijken hoe 
zijn toekomstige bungalow of fabriek¬ 
je er uit komt te zien. De mogelijkhe¬ 
den hangen uiteraard van de hard- en 
softwareconfiguraties af, maar zelfs 
met een eenvoudig Commodore XT- 
tje of een C-128 en een goedkoop 
CAD-pakket kan nog menige serieu¬ 
ze gebruiker uit de voeten. 

De popularising van de PC en huis- 
computer heeft CAD in haar kielzog 
meegetrokken. Werd CAD in het ver¬ 
leden door specialisten op een mini- 
of mainframe-computer beoefend, te¬ 
genwoordig is er geen sprake meer 
van eiland-vorming, want iedereen 
kan zelfstandig met de eigen PC aan 
de slag. 


Wie twee linker tekenhanden heeft 
hoeft bij eenvoudige CAD-toepassin- 
gen niet veel te vrezen. De software 
tekent lijnen en standaardfiguren of 
vormen automatisch na het invoeren 
van de bijbehorende coördinaten. 
Lastige veelhoeken, circels, bochten, 
en loodrechte hoeken behoeven dus 
geen tekenprobleem meer te zijn. 
Hetzelfde geldt voor het aanbrengen 
van Fill- patronen, schaduweffecten 
en het simuleren van 3D. 

Vele CAD-pakketten beschikken zelf 
over complete symbool- en figuurbi- 
bliotheken met huisje, boompje, 
beestje en vele standaard industriële 
vormen. Ook zijn er dikwijls verschil- 


ln eenvoudig Nederlands betekent 
CAD met de computer architectoni¬ 
sche en industriële ontwerpen maken 
op het beeldscherm. Dat klinkt ge¬ 
makkelijker dan het lijkt, want niet ie¬ 
dereen is zo maar een geschoold ont¬ 
werper. CAD-pakketten helpen de 
(on)ervaren gebruiker gelukkig op tal 
van manieren. Er is altijd sprake van 
een of ander coördinaten-systeem 
dat de juiste afmetingen en dimensies 
(automatisch) vastlegt. Een schaal¬ 
verdeling helpt bij het bepalen van de 
juiste maten, zodat de tekening later 
qua schaal exact met de werkelijke 
afmetingen overeenkomt. 


CAD op de C-128 


Een kennismaking met Computer Aided Design 


52 


Commodore Info 3189 





128 


lende Fonts ingebouwd voor het op 
attractieve wijze verduidelijken van de 
verschillende onderdelen van het ont¬ 
werp. 

Zoom en scrollcommando’s maken 
het mogelijk om een veel groter ont¬ 
werp te maken dan op het monitor- 
scherm past en details voor nauwkeu¬ 
rige bestudering en correctie uit te 
vergroten. 

Cad programma’s zijn objected-ba- 
sed. Dat wil zeggen de software be¬ 
handelt de verschillende tekenobjec¬ 
ten niet als een collectie beeldpunten 
(pixels), maar als een vaste vorm die 
over het scherm verplaatst, ver¬ 
groot/verkleind, geroteerd, gespie¬ 
geld, vervormd, of gedupliceerd kan 
worden. 

De voordelen 

Computer Aided Design biedt ten op¬ 
zichte van de conventionele tekenta¬ 
fel vele voordelen. Een vergaande 
standarisatie verhoogt de nauwkeu¬ 
righeid van de tekeningen en gebruikt 
steeds dezelfde tekensymbolen. 
Daarmee worden de individuele ver¬ 
schillen tussen de verschillende tech¬ 
nische tekenaars verminderd en ont¬ 
staan ontwerptekeningen met een 
hoge consistentie en goede kwaliteit. 
Veranderingen zijn snel en betrekke- 
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lijk eenvoudig door te voeren. Ge¬ 
woon de oude tekening inladen, de 
wijzigingen aanbrengen en een nieuw 
up to date ontwerp rolt uit de plotter. 
Kortom, CAD staat borg voor een 
snellere en efficiëntere bedrijfsvoe¬ 
ring. 

In de industrie wordt CAD veel ge¬ 
bruikt voor het electronische testen 
van het gemaakte ontwerp. Simulatie 
van stress en andere ontwerponvrien- 
delijke factoren zoals hitte, druk, wind 
en golven maken een tijdige aanpas¬ 
sing van het ontwerp mogelijk. Con¬ 
structiefouten komen nu zonder het in 
gevaar brengen van mensenlevens of 
kapitaalgoederen aan het licht. Een 


andere aantrekkelijke optie is het tes¬ 
ten van reeds bestaande constructies 
op toekomstige, onvoorziene, belas¬ 
tingen. Bijvoorbeeld een brug die voor 
10-tonners gemaakt werd en nu 20- 
tonners moet torsen. Men noemt deze 
testmethode wel Finite Element Ana¬ 
lyses. In de ruimte worden een aantal 
draagcoördinaten opgetekend en 
daarna volgens het ontwerp tot een 
ruimtelijke structuur aangekleed. Nu 
worden met een analyseprogramma 
krachten op deze constructiepunten 
uitgeoefend en de (mogelijke) gevol¬ 
gen daarvan doorgerekend. 

Tot slot noemen wij nogmaals de gro¬ 
tere toegankelijkheid van CAD- syste¬ 
men voor de niet technische teke¬ 
naar. 

De basisconfiguratie 

Een C-128 computer met bijbehoren¬ 
de software is alleen niet voldoende 
voor het bouwen van een CAD-confi- 
guratie. Daar komt heel wat meer bij 
kijken. In het algemeen bestaat een 
thuis- of school-CAD- systeem uit de 
volgende componenten: 

• Een C-128 met floppy disk en vol¬ 
doende vrij RAM. Voor gedetail¬ 
leerde ontwerpen is een RAM-uit- 
breiding tot 256K wenselijk. Bin¬ 



nenkort komt ook een harde schijf 
voor de C-128 en C-64 beschik¬ 
baar en die kan heel wat CAD- 
data aan. 

• Een goede HIRES monitor is vrij¬ 
wel onmisbaar. Er is keuze uit 
monochroom- of kleurentypen. De 
laatste is aanzienlijk duurder, 
maar maakt het beeld door kleur¬ 
schakeringen en - kontrasten er 
wel duidelijker en overzichtelijker 
op. 

• Een CAD-pakket dat aan de ei¬ 
gen eisen voldoet. Niet iedereen 
gebruikt CAD voor hetzelfde doel 
en in vele gevallen gaat het zelfs 


om meerdere toepassingen. Net 
als elke andere software- aan¬ 
koop is het van groot belang om 
een prioriteitenlijstje te maken. 
Aan toeters en bellen heeft de ge¬ 
middelde gebruiker niet zoveel. 
Wel aan een gebruiksvriendelijk 
pakket dat precies doet wat het 
moet doen en nog redelijk ge¬ 
prijsd is ook. Het hier besproken 
CADPAK-128 voldoet aan de 
meeste van deze eisen. 

• Input-devices. Het tekenen met 
een CAD-pakket kan met tal van 
invoerapparatuur of "stuurwijzers". 
Voor serieus gebruik zijn de cur- 
sortoetsen van het keyboard ei¬ 
genlijk totaal ongeschikt. Zelfs als 
tijdelijke noodoplossing. Vrijwel 
elk CAD- pakket werkt met een 
muis. Helaas geven deze digitale 
knagers nogal een last. Onbe¬ 
trouwbare overbrenging, slechte 
compatibiliteit met hard- en soft¬ 
ware en het crashen van het sys¬ 
teem bij het per ongeluk uitvoeren 
van een verboden manouvre vor¬ 
men slechts een kleine greep uit 
de vele gruwelen waarmee de be¬ 
ginnende CAD-man/vrouw gecon¬ 
fronteerd kan worden. Dat hoeft 
echter niet als men van meet af 
aan met een goede C-128 com¬ 
patibele muis en stuursoftware 
start. 

Behalve muizen is er wat de stuurwij¬ 
zers betreft nog keuze uit lichtpen¬ 
nen, graphic tablets, joysticks en 
track/joy-ballen. Elk device heeft zo 
zijn eigen enthousiaste aanhan- 
gers/boe-roepers, voor- en nadelen, 
en mogelijk/onmogelijkheden. Het 
valt moeilijk om hierin verantwoord te 
adviseren. Dikwijls vindt u in het 
manual de nodige aanbevelingen en 
afraders die een verstandige keuze 
vergemakkelijken. 

• Enkele CAD-pakketten onder¬ 
steunen scanners en digitizers. 
Daarmee kunnen reeds bestaan¬ 
de ontwerpen in het CAD- sys¬ 
teem ingevoerd en gewijzigd wor¬ 
den. Een nuttig tooi voor de 
bouwkundig- of industrieel-teke- 
naar die nog een kast vol oude 
ontwerpen had liggen of het rekla- 
mebureau dat bestaande afbeel¬ 
dingen in een nieuwe campagne 
wil integreren. Ook voor de C-128 
en C-64 zijn met name in Duits¬ 
land diverse scanners en digiti¬ 
zers met tal van artistieke en 
CAD-mogelijkheden te koop. 

• Voor het maken van perfecte 
hardcopies komen zowel plotters, 
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printers als beeldrecorders in aan¬ 
merking. Van oudsher is de plot¬ 
ter het geeigende tekeninstrument 
voor CAD/CAM- toepassingen. 
Een goede plotter kan een zeer 
hoge grafische resolutie met een 
perfecte afdrukkwaliteit bereiken. 
Voor een plotter geldt in feite het¬ 
zelfde als bij de monitor. Een in¬ 
ferieur model haalt niet uit het 
systeem wat er in zit. Behalve pa¬ 
pieren hardcopies kunnen de 
meeste plotters ook transparante 
folies (overheadsheets) beschrij¬ 
ven. Voor de Commodore is er 
keuze uit de, eigenlijk niet serieus 
te nemen, op papierrol schrijven¬ 
de 1520 en aanverwante plotters 
waarvan het papierformaat veel te 
klein is en de redelijk geprijsde 
Comx PL- 80. 

Wie niet zo aan de optimale kwaliteit 
tilt en even snel een redelijk tot goed 
hardkopietje wil uitdraaien is bij een 
24-naalds kleuren-matrixprinter of 
een goede inkjet-printer aan het juiste 
adres. Een alternatieve keuze is bij¬ 
voorbeeld de nieuwe Commodore 
MPS 2000 C kleurenprinter. De mo¬ 
derne printers zijn grafisch heel wat 
mans, maar kunnen nog niet echt aan 
de plotter tippen. 

° Koppeling aan een database. Met 
behulp van een database kan een 
schat aan grafische en alfanume¬ 
rieke gegevens aan het CAD-ont- 
werp gekoppeld worden. De dienst 
publieke werken van een gemeente 
kan zo bijvoorbeeld het riolerings¬ 
systeem in kaart brengen en bij 
alle buizen de diameter, diepte, ge¬ 
bruikte materialen, ouderdom, on¬ 
derhoudsgevoeligheid, de bij on¬ 
derhoud af te sluiten gedeeltes e.d. 
vermelden. 

CADPAK-128 

Het Britse softwarehuis Adamsoft 
heeft onlangs het HIRES ontwerp- en 
tekenpakket CADPAK-128 op de 
markt gebracht. Dit disk-based CAD- 
pakket tekent 40-koloms grafische 
beelden op de Commodore monitor 
en biedt printerdrivers voor 640 x 360 
dots hardcopies. 

De gebruiker heeft de keuze uit twee 
displayscreens: 

° Het Main Screen van 640 x 360 
pixels. De werkelijke resolutie in 
deze display-modus bedraagt 
320 x 200 pixels, maar de gebrui¬ 
ker heeft gewoon een twee maal 
zo groot schermoppervlak tot 
zijn/haar beschikking. 


° Het gewone scherm van 320 x 200 
pixels. 

Via het screen window (beeldvenster) 
kunnen objecten vrijelijk tussen de 
beide displays gekopieerd worden. 
Het tekenen zelf kan met de cursor- 
toetsen, een muis of een lichtpen. De 
lightpen-optie is zeker de moeite van 
het overwegen waard daar het gebrui- 
kersgemak, snelheid en de mogelijk¬ 
heden van de software er aanzienlijk 
mee vooruitgaan. Het aansluiten van 
de pen ging vrijwel probleemloos, ge¬ 
woon een kwestie van inpluggen, 
evenals het instellen met behulp van 
het lightpen-menu. 


CADPAK-128 biedt de gebruiker de 

volgende mogelijkeden: 

° Overlay en printscaling. De grootte 
van de hardcopy kan door de ge¬ 
bruiker vrijelijk ingesteld worden. 
Via overlays zijn behoorlijk gecom¬ 
pliceerde constructietekeningen 
mogelijk. 

° Volledige menusturing. 

° Saven van gemaakte tekeningen in 
BASIC en 6502 machinetaal. 

° Exact scaled output. De uitgedraai¬ 
de tekening is precies op schaal. 
Naar keuze in (centi)meters, kilo¬ 
meters en inches. De schaal wordt 
tijdens het initialisatieproces vast¬ 
gelegd. Verder draagt deze optie er 
zorg voor dat cirkels ook als cirkels 
en niet als eieren afgedrukt wor¬ 
den. 

° Het object management systeem 
(OMS) hanteert beelden van 16 x 
16 pixels op het normale scherm. 
De gebruiker kan deze objects voor 
latere toepassingen saven. Er kun¬ 
nen maximaal 104 OMS- objects 
tegelijk gebruikt worden. Onder het 
OMS vallen ook enkele standaard¬ 
bibliotheken op de systeemschijf 
met onder andere kaarten, meet¬ 
kundige figuren en electronische 
symbolen. 


0 Templates zijn lijntekeningen die 
voor later gebruik gesaved kunnen 
worden. Zo kunt u de bibliotheek 
zelf verder uitbreiden. Het bijzonde¬ 
re van de templates is dat zij weer 
in andere tekeningen ingebouwd 
kunnen worden. Templates zijn van 
uit BASIC aan te roepen en zo ook 
in zelfgemaakte programma’s in te 
bouwen. 

° dupliceervenster. Via het scherm- 
venster (window) kan de ontwerper 
een object kopiëren, roteren of 
spiegelen en daarbij ook nog in 
grootte wijzigen. 

° Drie Fonts met tekst in vier ver¬ 


schillende grootten en 3D- letters. 
Met de object editor kunnen desge¬ 
wenst nieuwe Fonts ontworpen 
worden. 

° Alle gebruikelijke standaard teken¬ 
technieken. 

° Zeven verschillende -Fill-patronen 
bestaande uit 8 x 8 pixels. 

"De Try Again-functie die het laatst 
gegeven commando ongedaan 
maakt. 

° Een 86-pagina’s tellende duidelijke 
Engelse gebruiksaanwijzing met tal 
van lessen en voorbeelden. 

° Full printer support voor Commodo¬ 
re seriële en parallel Centronics 
printers. Helaas worden er maar 
enkele plotters ondersteund! Een 
van de weinige nadelen van dit 
CAD-pakket. 

CADPAK-128 kost rond de ƒ 125,-. 
Daar komt de prijs van de lichtpen 
nog bij. Info bij: Adamsoft Ltd., 18 
Norwich Avenue, Rochdale, Lancs. 
OL11 5JZ. 

CAD op de C-128 is nu voor iedereen 
bereikbaar. Verwacht echter geen 
professionele kwaliteit, maar wel 
bruikbare en vooral leerzame resulta¬ 
ten. En om de prijs hoeft u het echt 
niet te laten. 
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met o.a. Patience 


PRINT OUT C-128 
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Het spel moet binnen een bepaald tijdsbestek zijn 
gespeeld, de punten die hiervoor nodig zijn staan op 
het menuscherm. 


Bij een taxi centrale komen aan de lopende band 
meldingen binnen van klanten die op een taxi wach¬ 
ten. Het is de taak van de coördinator om lege taxi;s 
naar die plaatsen te sturen waar de klanten staan. 
De taxichaffeur op zijn beurt meldt aan de centrale 
waar de klant naar toe wil, en geeft door als de be¬ 
stemming is bereikt. 


De maker van dit uitgebreide programma is een re 
gelmatige inzender voor deze rubriek de Heer Y 
Rozijn uit Amsterdam. 


rem taxi 

rem voor cl28 met 40koloms 

rem kleurenscherm 

rem door y.rozijn,amsterdam 

rem 

gosubl260:gosub850:gosubl080:do:go 
sub710:loop 

rem **** opdracht **** 

p=pandl5:ift(t)thencharl,1,2*t(t), 

" [SPACE] " 

dp=x(p)-p(t):dq=y(p)-q(t):d=int(sq 
r(dp*dp+dq*dq)/4):a$=b$(b)+c$(p) 
ifdthendp(t)=dp/d:dq(t)=dq/d:n(t)= 
d:t(t)=p:b(t)=b:charl,4*t-4,23,a$ 
return 

rem **** kommando **** 

charl,4*t-4,24,"( M +c$(p)+") M :v(t)= 

p+16 

return 

rem **** input **** 
geta$:ifa$="p"thencharl,21,24, a$:g 
etkeya$:charl,21,24,"[SPACE]": at=0 
:return 

ifa$="?"thengosub310 : return 

i=instr("12345",a$):ifithenat=i:ch 

arl,21,24,a$:else begin 

i=instr("*abcdefghij",a$): ifi>0and 

at>Othenp=i-l:t=at:gosub80 

bend 

return 

rem **** taxi pikt klant op **** 
do:p=fnr(10)+1:loopwhilep=i:b=l:go 
sub30 

pw(i)=pw(i)-1:charl,2,2*i,left$("W 

WWWWWW",pw(i))+"[SPACE]" 

ifpw(i) =0thencolorl ,16:charl,xc(i) 

,yc(i),c$(i):colorl,8 

nk=nk-l:v(t)=0:charl,4*t-4,24,"[3x 

SPACE]":charl,0,0,right$(str$(nk), 


Dit is in het kort wat er gebeurt bij het programma 
taxi. De coördinator zit uiteraard achter het toetsen¬ 
bord van de commodore 128. 


Het gebied dat wordt bestreken door de centrale be¬ 
staat uit tien plaatsen, A t/m J, en een garage aan¬ 
gegeven door een *. Er zijn 5 taxi’s, genummerd van 
1 t/m 5, en hebben elk een eigen kleur. Als er een 
melding van een klant binnen komt moet er zo snel 
mogelijk een taxi worden heengestuurd. Dit gebeurt 
door het nummer van de gewenste taxi in te geven, 
gevolgd door het nummer van de plaats waar hij 
heen moet. Als de taxi leeg is gaat hij op weg naar 
het op gegeven punt. Wordt er een opdracht gege¬ 
ven aan een taxi die met een klant onderweg is, dan 
gaat deze op weg zodra hij zijn vracht heeft afgele¬ 
verd. Staat er op dat punt echter een nieuwe klant 
te wachten dan gaat het gegeven commando niet 
door. 


Het scherm bestaat uit de volgende onderdelen: Een 
plattegrond van het gebied. Hier zijn de tien punten 
aangegeven en de positie van elke taxi. 

Linksboven staat het totaal aantal wachtende klan¬ 
ten, daaronder per plaats hoeveel klanten er staan 
te wachten. Ook wordt hier aangegeven of er taxi’s 
onderweg zijn naar dat punt of niet. 

Linksonder staat informatie over elke taxi. Een enke¬ 
le letter (of *) geeft aan dat de taxi op die plaats 
staat te wachten. Een letter voorafgegaan door 
wil zeggen dat de taxi leeg onderweg is naar dat 
punt. Wordt de letter vooraf gegaan door “+” dan 
vervoert de taxi een klant. Daaronder staat tussen 
haakjes een vervolgopdracht. Middenonder staat het 
nummer van de taxi waarvoor het commande geldt. 
Rechtsonder staat de score en de resterende tijd. 
Door het intoetsen van een P wordt het spel onder¬ 
broken, na het aanraken van een willekeurige toets 
gaat het spel weer verder. Een ? geeft het help- 
scherm, met een uitleg wat er zoal op het scherm 
gebeurt. 


return 

rem **** nieuwe klant **** 
i=fnr(10)+1:ifpw(i)<7thenbegin:pw( 
i)=pw(i)+1:nk=nk+l 

charl,0,0,right$(str$(nk),2):charl 
,2,2*i,left$("WWWWWWW",pw(i)) 
colorl,2:charl,xc(i),yc(i) , c$(i) :c 
olorl,8:fk=fk+f 

iffvandtd<txthen££=ff+l+4*(ff=4):f 
=f(ff):tx=td-150-fnr(100):fk=f:f=f 
/10 
bend 
return 

rem **** help **** 

h=0:do:fort=lto5:spritet,h:next:gr 

aphich:getkeya$:h=l-h 

loopuntila$=chr$(13):fort=lto5:spr 

itet,1:next:graphicl 

return 

rem **** loop **** 

sc=0:nk=0 :fk=f:f=f/10:gosub240 


Punten worden verkregen door klanten te vervoeren. 
Elke taxi die leeg is, (rijdend of stilstaand), kost pun¬ 
ten, behalve als de auto in de garage staat. Een 
wachtende klant kost ook punten, hoe meer klanten 
er staan te wachten des te meer strafpunten kost 
dat per klant. 


Er is een keus uit vier verschillende druktes, rustig ( 
2 taxi’s), matig druk (3 taxi’s), spitsuur (5 taxi’s) en 
wisselend druk zodat er steeds een wisselend aantal 
taxi’s moet worden ingezet. 
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do:dowhilepeek(208):gosubllO:loop 
: fort=lto5:i=t(t) 

: : ifn(t)thenbegin:n(t)=n(t)-1 

; ; : i£n(t)thenbegin;p(t)=p(t)+dp 

(t):q(t)=q(t)+dq(t):a$="+" 

: : : bend:elsebegin 

: : : : p (t) =x (i) : q (t) =y (i) : a$=" [S 

PACE]":charl,4*t-4,23,"[SPACE]":b( 
t) =0 

: : : bend 

: : : movesprt,p(t),q(t):ifithench 

arl,1,2*i,a$ 

: : bend 

: : ifn(t) =0andpw (i)>0thengosubl80 

: : ifb(t)thens=s+3:elsebegin:ifn( 

t) >0ori>0thens=s-l 
: : : ifv(t)thenp=v(t):b=0:gosub30 

:v(t)=0:charl,4*t-4,24,"[3xSPACE]" 

: : bend 

: next:td=td-l:fk=fk-.1:ifrnd(1)*f 
k<lthengosub2 3 0 

: s=s-nk*(.5+nk/nx):sc=sc+s:a$=mid 
$(a0$,sgn(s)+2,1):s=0 
: charl,31,22,right$("[4xSPACE]"+s 
tr$ (td) , 6) 

: charl,31,24,right$("[4xSPACE] M +s 
tr$(int(sc)),6)+"[SPACE]"+a$ 
loopwhileabs(sc) <s0andtd>0 
fort=lto5:spritet,0:next:color1,4: 
charl,20,8,"spel[SPACE]over" 
i=3-2* (sc>0) -2*sgn(sc)*(abs(sc)>=s 
0):color1,8 

for j=0tol :gshapez$(i+j),200-z(i+j) 
/2,100+12*j:next 

do:getkeya$:loopuntila$=chr$(13) 
return 

rem **** scherm init **** 

color1,16:graphicl,1 

fori=0tol0 :charl,xc(i),yc(i),c$(i) 

:charl,0,2*i,c$(i):pw(i)=0:next 
fort=lto5:colorl,rsprite(t,1):gsha 
peta$,32*t-24,176:colorl, 8 
charl,t*4-4,22,chr$(48+t):charl,t* 
4-3,23,"*":movesprt,x(0),y(0):spri 
tet, 1 

p(t)=x(0) :q(t)=y(0) : t (t) =0 : n (t) =0 : 
b(t)=0 :v(t)=0 :next 
fori=lto8:p=7*i+14+(i=l):gshapew$( 
i),p,0:next 

drawl,0,172to319,172:drawl,77,0to7 
7,172:drawl,152,172tol52,199 
drawl,190,172tol90,199:drawl,152,1 
84tol90,184:gshapetx$,156, 174,2 
char 1,25,22,"tijd:":char 1,25,24, 


nen":colorl,11:boxl,36,149,275,162 
color 1,16:char 1,16,14,"te[SPACE] 
behalen[SPACE]score[SPACE] 
do:£©ri=lto4:colorl,16+14*(x=i):ch 
arl,7,2*i+4,c$(i)+"[2xSPACE]"+£$(i 




810 loopuntila$=chr$(13):fv=(x=4):iffv 
thenf=f(1):tx=1850-fnr(100):elsef= 
f (x) 

820 td=2000: s0=s0 (x):nx=nx(x):ff=l:gos 

ub 600:gosub 350 
830 return 

840 rem **** init **** 

850 colorO,1:color4,1:colorl,1:with2:g 

raphicl,1 

860 fori=8192to8206:readx:pokei,x:next 

870 shapeta$,0,0,23,20:fort=lto5:sprsa 
veta$,t:next:shapeta$,0,0,10,7 
880 deffnr(i)=int(rnd(1)*i):x=rnd(-ti) 

890 scnclr:fori=8192to8222:readx:pokei 

,x:next:shapetx$,0,0,31,7 
900 scnclr:charl,0,0,"wachtend":fori=l 

to8:shapew$(i),8*i-7,0,8*i,7:next 
910 f ori=0tol0 :readxc(i),yc(i):x(i)=8* 

xc (i)+23:y(i)=8*yc(i)+50:next 
920 fort=lto5:readk:spritet,0,k,1,0,0, 
0:next:a0$="<[SPACE]>" 

930 b$(0)="-":b$(1)="+": fori=0tol0 :c$( 
i)=mid$("*abcdefghij",i+1,1):next 
940 fori=lto8:reada$:z(i)=8*len(a$):ch 
arl,0,0,a$:shapez$(i),0,0,z(i)-l,7 
: next 

950 fori=lto4:readf(i):next:fori=lto4: 
readf$(i):next 

960 fori=lto4:readsO(i):next:fori=lto4 
:readnx(i):next 
970 return 

980 data30,127,97,255,222,255,97,0,0,1 
28,128,192,192,192,128 
990 dataO,255,219,24,24,24,61,0,0,24,6 
0,102,255,195,231,0,0,57,25 
1000 datal5,15,25,185,0,0,222,140,12,12 
,140,222 

1010 datalO,,12,5,15,19,30,,21,17,39, 9, 
31,14,20, 10,22,2, 37, 6, 32,20,8,11, 4 
,14,13 

1020 dataonder jouw leiding zou,de zaak 
snel failliet zijn!,jammer! 

1030 dataje hebt het niet gered,je hebt 
de zaak maar net,draaiende kunnen 
houden 

1040 dataje staat aan het hoofd van,een 
goed lopend taxibedrijf 
1050 data30,18,10,18,rustig,"matig[SPAC 
E]druk",spitsuur,"wisselend[SPACE] 


1060 data 500,1000,2000,1000,7,5,4,5 
1070 rem **** helpscherm opbouwen **** 
1080 scnclrO:printchr$(142)"[CTRL-8] . . [ 
SPACE][CTRL-4]aantal[CTRL-8]Y[COM- 
8]*[SPACE][CTRL- 4 ] i s [SPACE]de[SPAC 
E]garage":print"[CTRL-4]wachtenden 


1090 


print"[CTRL-8][9xSPACE]Y[COM-8]a-j 
[SPACE][CTRL-4]zijn[SPACE]de[SPACE 
]10[SPACE]plaatsen":print"[COM-8]a 
[CTRL-8]+WWW[4xSPACE]Y" 
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n[SPACE]waar[SPACE]klanten[SPACE]s 
taan[SPACE]te[SPACE]wachten.":print 
print"Er[SPACE]zijn[SPACE]10[SPACE 
]plaatsen[SPACE](A-J),[SPACE]en[SP 
ACE]een[SPACE]garage(*).[SPACE]Er[ 
SPACE]zijn[SPACE]5[SPACE]taxi's,[S 
PACE]"; 

1300 print"maar[SPACE]minder[6xSPACE]wa 
gens[SPACE]inzetten[SPACE]kan[SPAC 
E]ook.":print 

print"Een[SPACE]taxi[SPACE]levert[ 
SPACE]alleen[SPACE]punten[SPACE]op 
[SPACE]als[SPACE]hij een[SPACE]pas s 
agier[SPACE]vervoert.[SPACE]"; 
print"Een[SPACE]lege[SPACE]taxi[3x 
SPACE]kost[SPACE]punten,[SPACE]elk 
e[SPACE]wachtende[SPACE]passagier[ 
3xSPACE]ook.[SPACE]Een[SPACE]"; 
print"taxi[SPACE]in[SPACE]de[SPACE 
]garage[SPACE]kost[SPACE]niets.":p 
rint:print"Een[SPACE]lege[SPACE]ta 
xi[SPACE]kun[SPACE]je[SPACE]"; 
print"naar[SPACE]een[SPACE]ander[S 
PACE]punt sturen[SPACE]door[SPACE]h 
et[SPACE]nummer[SPACE]van[SPACE]de 
[SPACE]taxi[SPACE]in[SPACE]te" 
print"tikken,[SPACE]gevolgd[SPACE] 
door[SPACE]de[SPACE]letter[SPACE]v 
an[SPACE]het[2xSPACE]punt.[SPACE]A 
ls[SPACE]je[SPACE]een[SPACE]komman 
do[SPACE]"; 

print"geeft[SPACE]aan[SPACE]een[SP 
ACE]taxi[SPACE]die[SPACE]een[SPACE 
]vracht[SPACE]vervoert,[SPACE]word 
t[SPACE]het[SPACE]kommando[SPACE]"; 
print"bewaard.[SPACE]Het[SPACE]gaa 
t[SPACE]dan[SPACE]in[SPACE]zodra[S 
PACE]de[SPACE]taxi[SPACE]leeg[SPAC 
E]is,[SPACE]tenzij[SPACE]op[SPACE] 
de[SPACE]"; 

print "bestemmingvan [SPACE] de [SPACE 
]taxi[SPACE]een[SPACE]nieuwe[SPACE 
]passagier[SPACE]staat[2xSPACE]te[ 
SPACE]wachten." 

print:print"[SPACE][CTRL-9][CTRL-8 
][2xSPACE]druk[SPACE]op[SPACE]een[ 
SPACE]toet s[SPACE]voor[SPACE]het[S 
PACE]vervolg[2xSPACE] [CTRL-0]"; :ge 
tkeya$ 

1400 scnclr:color5,16:print"Het[SPACE]s 
cherm[SPACE]bevat[SPACE]de[SPACE]v 
olgende[SPACE]onderdelen:":print 
1410 print"-[SPACE]Een[SPACE]plattegron 
d[SPACE]van[SPACE]alle[SPACE]punte 
n.[SPACE]Hier[3xSPACE]zijn[SPACE]o 
ok[SPACE]de[SPACE]positie s[SPACE]v 
an[SPACE]"; 

print"elke[SPACE]taxi[6xSPACE]aang 
egeven.":print:print"-[SPACE]Links 
[SPACE]staat[SPACE]hoeveel[SPACE]"; 
print"passagiers[SPACE]op[SPACE]el 
k[3xSPACE]punt[SPACE]staan.":print 
print"-[SPACE]Linksonder[SPACE]sta 
at[SPACE]van[SPACE]elke[SPACE]taxi 
[SPACE]de[7xSPACE]plaats[SPACE]waa 
r[SPACE]hij[SPACE]is[SPACE]of[SPACE] 
print"naar[SPACE]toe[SPACE]gaat,[4 
xSPACE]en[SPACE]of[SPACE]hij[SPACE 
]leeg[SPACE]is[SPACE]of[SPACE]niet 


print"[CTRL-8][9xSPACE]Y[CTRL-4][S 
PACE] komxnando [SPACE] geven: " :print" 

[COM-8]a[SPACE] [CTRL-4]=plaat s[CTR 
L 8]Y[CTRL-4][SPACE]Q[SPACE]selekt 
eer[SPACE]taxi"; 

print"[SPACE](1-5)":print"[CTRL-8] 

[9xSPACE]Y[CTRL-4][SPACE]Q[SPACE]g 
eef[SPACE]plaats[SPACE](a-j[SPACE] 
of[SPACE]*)[SPACE]waar" 
print"[CTRL-8][SPACE]+[SPACE][CTRL 
4]=1[SPACE]of[SPACE][CTRL-8]Y[CTR 
L 4][3xSPACE]taxi[SPACE]naar[SPACE 
]toe[SPACE]moet":print"[CTRL-4][3x 
SPACE]meer[2 xSPACE] [CTRL-8]Y[CTRL- 
4][SPACE]het[SPACE]komman"; 
print"do[SPACE]komt[SPACE]tussen[S 
PACE]()":print"[CTRL-4][3xSPACE]ta 
xi's[CTRL-8]Y[CTRL-4][SPACE]linkso 
nderaan[SPACE]en[SPACE]gaat[SPACE]in 
print"[CTRL-4][3xSPACE]op[SPACE]we 
g[CTRL-8]Y[CTRL-4][SPACE]zodra[SPA 
CE]de[SPACE]taxi[SPACE]leeg[SPACE] 
is.":print"[CTRL-8][9xSPACE]Y" 
print"[CTRL-8][2xSPACE]WWW[SPACE][ 
CTRL-4]=[2xSPACE][CTRL-8]Y[CTRL-4] 

[SPACE]verdere[SPACE]toetsen:":pri 
nt"[CTRL-4][3xSPACE]wach-[SPACE][C 
TRL 8]Y[CTRL-4][SPACE]p[SPACE]=pau 


1100 


1290 
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1120 


1310 


1130 


1140 


1340 


1150 


print"[2xSPACE]?=helpscherm":print 
"[CTRL-4][3xSPACE]tende[SPACE][CTR 
L 8]Y[SPACE][CTRL-2][29xCOM-'] M 
print"[CTRL-4][3xSPACE]klan-[SPACE 
][CTRL-8]Y[SPACE][CTRL-2][CTRL-9][ 
SPACE]return[6xSPACE]:[SPACE]herva 
t[SPACE]spel[3xSPACE]":print"[CTRL 
4][3xSPACE]ten[3xSPACE][CTRL-8]Y" 
print"[SPACE][CTRL-2][CTRL-9][SPAC 
E]andere[SPACE]toets:[SPACE]wissel 
[SPACE]scherm[SPACE]":print"[CTRL- 
4][9xSPACE][CTRL-8]Y" 
print"[CTRL-8][9xSPACE]Y[CTRL-4][S 
PACE]nummer[SPACE]van[SPACE]de[SPA 
CE]taxi[SPACE]waarvoor":print"[CTR 
L 8][9xSPACE]Y"; 

print"[CTRL-4][SPACE]kommando[SPAC 
E]geldt;[2xSPACE]p[SPACE]=pauze":p 
rint"[CTRL-8][9xSPACE]Y[1lxSPACE][ 
CTRL-4]~" 

print"[CTRL-8][21xSHIFT-*][CTRL-4] 
[SHIFT-][CTRL-8][18xSHIFT-*]" 

1220 print"[CTRL-8]+[SPACE][CTRL-4]:rij 
dt[SPACE]met[SPACE]klant[SPACE][CT 
RL 8][COM-G][SPACE][CTRL-4][SHIFT- 
-][CTRL-8][SPACE][COM-M]":print"[C 
TRL 8]-[SPACE][CTRL-4]:rijdt[SPACE 
]leeg[öxSPACE][CTRL-8][COM-G][3xSP 
ACE] [COM-M] " 

1230 print"[CTRL-4][2xSPACE]:staat[SPAC 
E]stil[6xSPACE][CTRL-8][COM-G][SPA 
CE]1[SPACE][COM-N]"; 

1240 return 

1250 rem **** inleiding **** 

1260 colorO,1:color4,1:color5, 16:scnclr 
:printchr$(14)chr$(11)"Je[SPACE]be 
nt[SPACE]koor"; 

print"dinator[SPACE]in[SPACE]een[S 
PACE]taxicentrale.Jouw[SPACE]taak[ 
SPACE]is[SPACE]om[SPACE]lege[SPACE 
]taxi's[SPACE]te[SPACE]dirigeren" 
1280 print"naar[SPACE]die[SPACE]plaat se 
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1360 


1170 


1370 


1180 


1380 


1190 


1390 
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1420 


1430 


1440 


1450 


1270 


1460 
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aat [ SPACE] het [ SPACE ] nummer [ SPACE] v 
an[SPACE]de[5xSPACE]taxi[SPACE]waa 
rvoor[SPACE]het[SPACE]komman"; 
print"do[SPACE]geldt.[7xSPACE]Een[ 
SPACE]'P'[SPACE]betekent[SPACE]pau 
ze.":print:print"-[SPACE]RechtSOnd 
er[SPACE]"; 

print"staan[SPACE]de[SPACE]restere 
nde[SPACE]tij d[4xSPACE]en[SPACE]de 
[SPACE]score.":print 

print"'P'[SPACE]toets:[SPACE]spel[ 
SPACE]onderbreken.":print"'?'[SPAC 
E]t oet s:[SPACE]toon[SPACE]het[SPAC 
E]helpscherm." 

print:print"[SPACE][CTRL-9][CTRL-8 
][3xSPACE]druk[SPACE]op[SPACE]een[ 
SPACE]toet s[SPACE]om[SPACE]te[SPAC 
E]beginnen[3xSPACE][CTRL-0]";:getk 
eya$ 


Kaart spelen hebben we al verschillende keren ge¬ 
plaatst maar nog niet eerder voor de Commodore 


1470 


128. Het is het al om bekende Patience. Een uitleg 
wordt er in het programma gegeven, zodat ons allen 
nog rest de maker van het programma te vermelden. 
En dat is: B.A.D. van den Brom uit Noordwijk. 


1480 


1490 


1500 


fast:colorö,12 

scnclr:n=l: tl=0 

gosublOOOO: rem * titelblad * 

dima$ (62) , e$ (62) , ry$ (11) , mm$ (15) , s 

s$(15),g(15),tl(15) 

for x=ll to 62: rem * kaarten-arra 
y vullen * 

: reade$(x) 
next 

gotolOOO: rem * sprong over subrou 

tines naar begin spel * 

rem ** controleren kaartvolgorde v 

an vp$tring ** 

for z=l to lv-5 step3 

: k=val(mid$(vp$,z,3)) 

: c=val(mid$(vp$,z+3,3)) 

: gosub200 


1510 return 


Einde listin 


REGEL 1100 
REGEL 1110 
REGEL 1120 
REGEL 1130 
REGEL 1140 
REGEL 1150 
REGEL 1160 
REGEL 1170 
REGEL 1180 
REGEL 1190 
REGEL 1200 
REGEL 1210 
REGEL 1220 
REGEL 1230 
REGEL 1240 
REGEL 1250 
REGEL 1260 
REGEL 1270 
REGEL 1280 
REGEL 1290 
REGEL 1300 
REGEL 1310 
REGEL 1320 
REGEL 1330 
REGEL 1340 
REGEL 1350 
REGEL 1360 
REGEL 1370 
REGEL 1380 
REGEL 1390 
REGEL 1400 
REGEL 1410 
REGEL 1420 
REGEL 1430 
REGEL 1440 
REGEL 1450 
REGEL 1460 
REGEL 1470 
REGEL 1480 
REGEL 1490 
REGEL 1500 
REGEL 1510 


REGEL 530 
REGEL 540 
REGEL 550 
REGEL 560 
REGEL 570 
REGEL 580 
REGEL 590 
REGEL 600 
REGEL 610 
REGEL 620 
REGEL 630 
REGEL 640 
REGEL 650 
REGEL 660 
REGEL 670 
REGEL 680 
REGEL 690 
REGEL 700 
REGEL 710 
REGEL 720 
REGEL 730 
REGEL 740 
REGEL 750 
REGEL 760 
REGEL 770 
REGEL 780 
REGEL 790 
REGEL 800 
REGEL 810 
REGEL 820 
REGEL 830 
REGEL 840 
REGEL 850 
REGEL 860 
REGEL 870 
REGEL 880 
REGEL 890 
REGEL 900 
REGEL 910 
REGEL 920 
REGEL 930 
REGEL 940 
REGEL 950 
REGEL 960 
REGEL 970 
REGEL 980 
REGEL 990 
REGEL 1000 
REGEL 1010 
REGEL 1020 
REGEL 1030 
REGEL 1040 
REGEL 1050 
REGEL 1060 
REGEL 1070 
REGEL 1080 
REGEL 1090 


REGEL 1 
REGEL 2 
REGEL 3 
REGEL 4 
REGEL 5 
REGEL 10 
REGEL 20 
REGEL 30 
REGEL 40 
REGEL 50 
REGEL 60 
REGEL 70 
REGEL 80 
REGEL 90 
REGEL 100 
REGEL 110 
REGEL 120 
REGEL 130 
REGEL 140 
REGEL 150 
REGEL 160 
REGEL 170 
REGEL 180 
REGEL 190 
REGEL 200 
REGEL 210 
REGEL 220 
REGEL 230 
REGEL 240 
REGEL 250 
REGEL 260 
REGEL 270 
REGEL 280 
REGEL 290 
REGEL 300 
REGEL 310 
REGEL 320 
REGEL 330 
REGEL 340 
REGEL 350 
REGEL 360 
REGEL 370 
REGEL 380 
REGEL 390 
REGEL 400 
REGEL 410 
REGEL 420 
REGEL 430 
REGEL 440 
REGEL 450 
REGEL 460 
REGEL 470 
REGEL 480 
REGEL 490 
REGEL 500 
REGEL 510 
REGEL 520 
































































































































































::r 








$t&^Vy+i'--' j .<r;ï:‘- 


ï.' 3 j£j 




& fcssaSsêi ...''■ ■■ sjsa?; '■^iiicr-X'ï, •''•"■ ? sis*s&3?'§s^HS?& ,.%?Z. 

wmmm. 

' "' '„ “'*'' 'v '' ' ^ '' ? / '"'~i'A ?w3£8®S3S8^3C8*3^ÖSSS8ttw5È*®8336eSï^RÖSK 

. .:'■:’ ■ ': : 

i?^ •■•■_ % ',s ‘-> < • y, ■- ^ "■ ..' ' ¥ '•'•V "" *■ ‘-J -. 'i 






Ipflllil 






SP ACE] " 

1020 for x=ll to 62: rem * hulp-array m 
et kaartnummers vullen * 

1030 : a$(x)=str$(x) 

1040 next 

1050 for 1=1 to 9: rem * kaartenstrings 
maken * 

1060 : do 

1070 : x=int(rnd(0)*52)+11:ifa$(x)="" 

thenl070 

1080 : ry$(1)=ry$(1)+a$(x):a$(x)= M " 

1090 : if len(ry$(1))=30-(1*3) then e 

xit 

1100 : loop 

1110 next 
1120 slow 

1130 do: rem * laatste 7 kaarten in res 
t-ry$tring opslaan * 

1140 : x=int(rnd(0)*52)+11:ifa$(x)=""th 

enll40 

1150 : ry$(10)=ry$(10)+a$(x):a$(x)="" 

1160 : if len(ry$(10))=21 then exit 

1170 loop 
1180 fast 

1190 rem * scherm opbouwen * 

1200 scnclr:color5, 7 

1210 for z=l to 19:char,z*3,0,chr$(z+64 
):next 

1220 char,0,1,"[SHIFT-*]":char,1,1,"[SH 
IFT +]":for z=2 to 57 step3:char,z 
,1,"[SHIFT-*][COMaR][SHIFT-*]" : nex 




1640 al=instr(an$,x$):if al=0then 1630 
1650 if al=20then 1580: rem * correcti 
e-mogelijkheid * 

1660 printmid$(an$,al,1) 

1670 rem * te verplaatsen kaart of kaar 
ten bepalen * 

1680 if ac<10then begin 
1690 : lr=len(ry$(ac)) 

1700 : lv=lr+3-(al*3) 

1710 : if lv<l then fout=l:gotol750 

1720 : vp$=right$(ry$(ac),lv) 

1730 : if lv>3 then gosublOO: rem * con 

trole kaartvolgorde via kc$tring * 
1740 bend 

1750 if fout=l thengosub400:gotol580 
1760 if ac=10then vp$=mid$(ry$(10) , al* 
3-2,3) 

1770 x=val(left$(vp$,3)) 

1780 char,76,7,e$(x) 

1790 char,60,9," [CTRL-0] [COM-5]naar[SPA 
CE]welke[SPACE]rij ?[SPACE]" 

1800 getkeyx$:an$="123456789x " 

1810 bc=instr(an$,x$):if bc=0then 1800 
1820 if bc=ll then 1580: rem * correcti 
e-mogelijkheid * 

1830 printmid$(an$, bc, 1) 

1840 rem * controle aansluiting en verp 
laatsing kaart(en) * 

1850 if bc<10then begin 
1860 : w$=right$ (ry$ (bc) , 3) 

1870 : if w$="" thenl920: rem * bij le 

ge rij geen controle nodig * 

1880 : k=val(w$) 

1890 : c=val(left$(vp$,3)) 

1900 : gosub200: rem * controle op aans 

luiting kaart * 

1910 : if fout=l then gosub400:gotol580 

:rem * foutmelding en terug naar v 
raag * 

1920 : le=len(ry$(bc) ) 

1930 : ry$(bc)=ry$(bc)+vp$ 

1940 : if acClOthen begin 

1950 : for z=l to lv step3 

1960 : x=val(mid$(vp$,z,3)) 

1970 : char, le+z+1,2*bc,e$(x) 

1980 : char,3*al+z-2,2*ac," [CTRL-0] 

[3xSPACE][CRSR-DOWN][3xCRSR-LEFT][ 
3xSPACE]" 

1990 : next 

2000 : ry$(ac)=left$(ry$(ac),lr-lv) 


1230 char,1,0,"B":for z=2 t 
z,"B":next 

1240 for z=21 to23:char,1, z 
1250 char,0,20,"[SHIFT-*]": 

SHIFT-+]":for z=2 to 5 
,z,20,"[SHIFT-*][COM-E 


1260 


1270 char,59,20, " 
3:char,59, z, 
1280 for z=l to 9 




1290 char, 
1300 for z 


1310 char,z*3,14,chr$(z+64) 

1320 char,z*3,21,chr$(z+64):next 
1330 char,0,22, M x":for z=35 to 53 step6 
:char,z,22,"O[COM-Y]P M :char,z,23, " 
L[COM-P][SHIFT-'] M :next 
1340 char,60,2,"geef[SPACE]de[SPACE]coo 
rdinaten" 

1350 char,60,3,"om[2xSPACE]een[2xSPACE] 
kaart[2xSPACE]te" 

1360 char,60,4,"verplaatsen[SPACE](bv[S 
PACE]3f)" 

1370 char,60,5,"corrigeren[SPACE]met:[S 
PACE]< >" 

1380 char,60,11,"spel[SPACE]beëindigen" 
1390 char,60,12,"met[SPACE]:[SPACE]<hom 


1400 rem * kaarten-rijen neerlec 
1410 for z=l to 9 
1420 y=l 

1430 : l=len(ry$(z)) 

1440 : do until y>l 

1450 : x=val(mid$(ry$(z),y,3)) 

1460 : char,y+1,z*2,e$(x) 
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2520 bend 

2530 if tl<48 then begin 
tgelopen * 

2540 : char,60,15 

ucces", 1 
2550 : g(n)=1 

2560 bend 
2570 mm$=mid$ (ti$, 3,2): ss$=mid$ (ti$, 5,2 


if ac=4 or ac=7 then begin:pri 
nt"[CTRL-7]" 

: lx=len(ry$(ac))/3+1 

: for z—lx to 19 

: char,z*3,ac*2,chr$(64+z) 

: next 

: bend 

: bend 

: if ac=10then begin 
: x=val(vp$) 

: char,le+2,2*bc,e$(x) 

: char,3*al-l,22," [CTRL-0] [3xSPA 

CE][CRSR-DOWN][3xCRSR-LEFT][3xSPAC 


2010 


2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 


[ CTRL-1]geen[SPACE]s 


2580 mm$(n)=mm$ 
2590 gosub500 
2600 char,60,17 
E]tijd:" 

2610 char.60,18 


[CTRL-8]gespeelde[SPAC 


2120 : ry$(10)=left$(ry$(10) , 3*(al-1) 

)+"[3xSPACE] M +right$(ry$(10),3*(7- 
al)) 

2130 : bend 

2140 bend 

2150 if bc=10then begin: rem * azen we 
gleggen met controle * 

2160 : x=val(vp$) 

2170 : if x=23 or x=36 or x=49 or x=62 

then2200:else begin 

2180 : gosub400 : gotol580 : rem * foutm( 

lding en terug * 

2190 : bend 

2200 : le=len(ry$(11) ) 

2210 : ry$(11)=ry$(11)+str$(x)+ "[3xSPAC 


2640 

2650 

2660 


[CTRL-8][2xSPACE]het[SPA 
CE]overzicht[SPACE]van[SPACE]de [SP 
ACE]spelresultaten[SPACE]:[SPACE]",1 
2670 s=n:tt=0:gs=0:gt=0:pp=0 
2680 for n=l to s 

2690 : char,1,n+2:print H [COM-5]spel"n"i 

n[SPACE]"mm$(n)"[SPACE]min[SPACE]e 
n[SPACE]"ss$(n)"[SPACE]sec[SPACE]m 
et"tl(n)"punten"; 

: if g(n)=l thenprint"[SPACE](afge 
br.)":else print 
2710 : if g(n)=0then begin 

2720 : tt=tt+val(mm$(n))*60+val(ss$(n)) 

2730 : gs=gs+l 

2740 : gt=int(tt/gs*100)/100:mm=int(g 

t/60):ss=int(gt-mm*60) 

2750 : bend 

2760 : pp=pp+tl(n) 

2770 next 

2780 gp=int(pp*10/s)/10 

2790 print"[SPACE][CRSR-DOWN][CTRL-8][C 
TRL 9]gemiddelde[SPACE]speeltijd"; 
gs;"[CRSR-LEFT][SPACE]volledige[SP 
ACE]spelen: [CTRL-0] [CTRL-7]" 

2800 printmm;"[SPACE]minuten[SPACE]en[S 
PACE]";ss;"[SPACE]seconden" 

2810 print"[SPACE][CRSR-DOWN][CTRL-8][C 
TRL 9]gemiddelde[SPACE]aantal[SPAC 
E]punten[SPACE]van"s"[CRSR-LEFT][S 
PACE]spelen[SPACE]:[SPACE] [CTRL-0] 
[COM-3]"gp 

2820 windowO,0,79, 24 

2830 char,60,23,"[COM-5]nog[SPACE]een[S 
PACE]spel[SPACE](j/n)?" 

2840 getkeyx$:an$="jn" 

2850 an=instr(an$,x$):if an=0then2840 
2860 if an=l then begin 
2870 : for z=l to 11 

2880 : ry$(z)="" 

2890 : next 

2900 : n=s+l:tl=0 

2910 : scnclr 

2920 : gosublOOOO:gotolOOO:rem * titelb 

lad en terug naar begin nieuw spel 
2930 bend 

2 940 char,0,2 3,"[COM-6]de[SPACE]spelre s 
uitaten[SPACE]worden[SPACE]genotee 
rd" 

2950 cr$=chr$(13):nm$="harp-9-punten" 

2960 dopen#2,(nm$),w 


2700 


: char,le+35,22,e$(x) 

: if ac<10then begin 
: char,3*al-l,2*ac," [CTRL-0] [3xS 

PACE][CRSR-DOWN][3xCRSR-LEFT][3xSP 
ACE ] " 

: ry$(ac)=left$(ry$(ac),lr-3) 

: bend 

: if ac=10then begin 
: char,3*al-l,22, "[CTRL-0] [3xSPA 

CE][CRSR-DOWN][3xCRSR-LEFT][3xSPAC 


2250 

2260 

2270 

2280 


2290 : ry$(10)=left$(ry$(10),3*(al-1) 

)+"[3xSPACE]"+right$(ry$(10) , 3*(7- 
al) ) 

2300 : bend 

2310 : tl=tl+l 

2320 bend 

2330 goto 1580: rem * terug voor volgen 
de kaartwissel * 

2340 rem * aantal goed liggende kaarten 

tellen * 

2350 f out=0 

2360 for y=l to 9 

2370 : lv=len(ry$(y)):vp$=ry$(y) 

2380 : if lv<6 then 2470 

2390 : for z=lv-5 to 1 step -3 

2400 : k=val (mid$ (vp$, z, 3) ) 

2410 : c=val(mid$(vp$,z+3,3)) 

2420 : gosub200: rem * controle aansl 

uiting kaarten * 

2430 : if fout=0 then tl=tl+l 

2440 : if fout=l then 2460 

2450 : next z 

2460 : fout=0 

2470 next y 

2480 tl(n)=tl 

2490 if tl=48 then begin:rem * spel uit 
gespeeld * 

2500 : char,60,15,"[COM-3]alles[SPACE]1 

igt[SPACE]goed",1 
2510 : g(n)=0 
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3480 loop 
3490 dclose#2 

3500 printiprint"[CTRL-8][SPACE]gemidde 
ld: "; 

3510 for x=15 to tm+14 

3520 ; printtab(x)"[SHIFT-*]"; 

3530 next 

3540 print"[SPACE]=[SPACE]"tm"[SPACE]pu 


2970 gosu 
2980 if d 
2990 : de 

3000 : ap 

3010 bend 
3020 gosu 


■ 


;./ : - '■::: ■ 


3030 for n=l to s 
3040 : print#2,mm 

n);cr$;tl(n) 
3050 : gosub 600 

3060 next 
3070 dclose#2 
3080 




gt=int(tt/gs*100)/100:mm=int(gt/60 
):ss=int(gt-mm*60) 

print:print"[CTRL-8][SPACE]gemidde 
1de[SPACE]speeltijd";gs;”[CRSR-LEF 
T][SPACE]volledige[SPACE]spelen:"; 
printmm;"minuten[SPACE]en[SPACE]"; 
ss;"seconden[SPACE]=";int(tt/gs);" 
sec.[CTRL-7]" 

print"[CTRL-7][CRSR-DOWN][SPACE]to 

taal[SPACE]gespeeld"n"[CRSR-LEFT][ 

SPACE]spelen,[SPACE]waarvan"af"[CR 

SR-LEFT][SPACE]spelen[SPACE]zijn[S 

PACE]afgebroken" 

windowO,0,79,24:sleep5 

char,1,24:end 

rem ** titelblad ** 

color6,16:color5, 5 

char,12,4,"[COM-+][15xCOM-|][COM-+ 


char,0,23,"[COM-5]alle[SPACE]spelr 

esultaten[SPACE]tot[SPACE]nog[SPAC 

E]toe[SPACE]bekijken[SPACE](j/n)?" 

getkeyx$:an$="jn" 

an=instr(an$,x$):if an=0then3100 

scnclr 

if an=2 then end 

char,0,0,"BspelBspelduurB[SPACE]be 
haalde[SPACE]punten[4xSPACE][CTRL 
8]Q[COM-5][SPACE]=[SPACE]cumulatie 
f[SPACE]gemiddelde[3xSPACE]B" 
char,0,1,"B[SPACE]nr[SPACE]Bmin[2x 
SPACE]secB[CTRL-7][9xSPACE]10[8xSP 
ACE]20[8xSPACE]30[8xSPACE]40[7xSPA 
CE][COM-5]B" 

char,0,2,"[COM-Q]CCCC[SHIFT—h]CCCC 
CCCC[SHIFT-+]CCCCCCCCC[SHIFT-+]CCC 
CCCCCC[SHIFT-+]CCCCCCCCC[SHIFT-+]C 
CCCCCCCC[SHIFT-+]CCCCCCCC[SHIFT-+] 
CCCCCCCCCCCCCC" 
windowO,3,79,24 
dopen#2,"harp-9-punten" 
gosub 600 

n=l:z=0: tt=0 : gs=0 :af=0 


3090 

3100 

3110 

3120 

3130 


3140 


10030 char,12,5,"[COM-+][SPACE][COM-][S 
PACE][COM—][SPACE][COM-][SPACE][ 
COM—][SPACE][COM—][SPACE][COM-] 
[SPACE][COM—][SPACE][COM-+]" 
char,12,6,"[COM-+][SPACE][COM-][S 
PACE] [COM—] [SPACE] [COM-] [SPACE] [ 
COM—] [SPACE] [COM—] [SPACE] [CO&M 
[SPACE] [COM—] [SPACE] [COM-+]" 
char,12,7,"[COM-+][SPACE][COM-][S 
PACE][COM—][SPACE][CO*M [SPACE][ 
COM—][SPACE][COM—][SPACE][COM-] 
[SPACE] [COM-] [COM- | ] [COM- + ] " 

10060 char,12,8,"[COM-+][SPACE][COM-][S 
PACE][COM—][SPACE][COM-][SPACE][ 
COM—][SPACE][COM—][SPACE][COM-] 
[COM-|][COM-+]" 

10070 char,12,9,"[COM-+][SPACE][CO*M [S 
PACE][COM—][SPACE][COM-][SPACE][ 
COM—][SPACE][COM—][COM-|][COM-+]" 

[COM-+][SPACE][COM—][ 


10040 


: input#2,mm$,ss$,g,tl 
: gosub 600 
: if mm$="" then3400 
: mb=val(mm$):sb=val(ss$) 

: if g=l then af=af+l 
: if g=0then begin 
: ts=mb*60+sb 

: gs=gs+l 

: tt=tt+ts 

: bend 

: print"B";tab(1)n;tab(5)"B";tab(6 
)mb;tab(10)sb;tab(14)"B"; 

: p=p+tl 

: tm=int(p*10/n)/10 
: for x=15 to tl+14 
: printtab(x)"[SHIFT-*]"; 

: next 

: printtab(63)"B";:if g=l then pri 
nt"afgebr.spel":else print 
: printtab(tm+14)"[CRSR-UP][CTRL-8 
]Q [COM-5]" 

: z=z+l 

: if mm$="" then n=n-l:exit 
: if st<>64then printst:exit 
: n=n+l:mm$="" 

: if z=16 then begin 
: print"[COM-3][SPACE]doorgaan[S 

PACE]?[SPACE]druk[SPACE]een[SPACE] 
toets[SPACE]in[COM-5]" 

: getkeyx$:z=0 

: print"[CRSR-UP][29xSPACE][CRSR 


10080 


10090 


10100 




3390 

3400 

3410 

3420 

3430 

3440 


10110 


3450 

3460 


10120 


3470 
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9][CTRL-3]TvY[CRSR-DOWN][3xCRSR-L 
EFT]TZY[CRSR-UP]" 

25130 data"[CTRL-9][CTRL-3]ThY[CRSR-DOWN 
][3xCRSR-LEFTJTZY[CRSR-UP]","[CTRL 
9][CTRL-2]TaY[CRSR-DOWN][3xCRSR-L 
EFT]T3Y[CRSR-UP]" 

25140 data"[CTRL-9][CTRL-1][SPACE]2[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]A 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-1 
][SPACE]3[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]A[SPACE][CRSR-UP]" 
25150 data"[CTRL-9][CTRL-1][SPACE]4[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]A 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-1 
][SPACE]5[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]A[SPACE][CRSR-UP]" 
25160 data"[CTRL-9][CTRL-1][SPACE]6[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]A 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-1 
][SPACE]7[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]A[SPACE][CRSR-UP]" 
25170 data"[CTRL-9][CTRL-1][SPACE]8[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]A 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-1 
][SPACE]9[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]A[SPACE][CRSR-UP]" 
25180 data"[CTRL-9][CTRL-1]1[SPACE]0[CRS 
R-DOWN][3xCRSR-LEFT][SPACE]A[SPACE 
][CRSR-UP]","[CTRL-9][CTRL-1]TbY[C 
RSR-DOWN] [3xCRSR-LEFT]TAY[CRSR-UP] ' 
25190 data"[CTRL-9][CTRL-1]TvY[CRSR-DOWN 
] [3xCRSR-LEFT]TAY[CRSR-UP]", "[CTRL 
9][CTRL-1]ThY[CRSR-DOWN][3xCRSR-L 
EFT]TAY[CRSR-UP]" 

25200 data"[CTRL-9][CTRL-2]TaY[CRSR-DOWN 
][3xCRSR-LEFT]TAY[CRSR-UP]","[CTRL 
9][CTRL-1][SPACE]2[SPACE][CRSR-DO 
WN][3xCRSR-LEFT][SPACE]X[SPACE][CR 
SR-UP]" 

25210 data"[CTRL-9][CTRL-1][SPACE]3[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]X 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-1 
][SPACE]4[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]X[SPACE][CRSR-UP]" 
25220 data"[CTRL-9][CTRL-1][SPACE]5[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]X 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-1 
][SPACE]6[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]X[SPACE][CRSR-UP]" 
25230 data"[CTRL-9][CTRL-1][SPACE]7[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]X 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-1 
][SPACE]8[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]X[SPACE][CRSR-UP]" 
25240 data"[CTRL-9][CTRL-1][SPACE]9[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]X 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-1 
]1[SPACE]0[CRSR-DOWN][3xCRSR-LEFT] 

[SPACE]X[SPACE][CRSR-UP]" 

25250 data"[CTRL-9][CTRL-1]TbY[CRSR-DOWN 
][3xCRSR-LEFT]TXY[CRSR-UP]","[CTRL 
9][CTRL-1]TvY[CRSR-DOWN][3xCRSR-L 
EFT]TXY[CRSR-UP]" 

25260 data"[CTRL-9][CTRL-1]ThY[CRSR-DOWN 
] [3xCRSR-LEFT]TXY[CRSR-UP]", "[CTRL 
9][CTRL-2]TaY[CRSR-DOWN][3xCRSR-L 
EFT]TXY[CRSR-UP]" 


HIFT -][4xSPACE][SHIFT-][2xSPACE] 
[COM-Q][2xSHIFT-*][COM-W][2xSPACE] 
[COM-Q][SHIFT-*][COMaR]K[2xSPACE][ 
COM-Q][2xSHIFT-*]K[5xSPACE]J[3xSHI 
FT *][COM-W]" 

10130 char,12,15,"[CTRL-5][COM-+][18xSPA 
CE][CTRL-8][SPACE][SHIFT-][4xSPAC 
E][SHIFT-][2xSPACE][SHIFT-][2xSP 
ACE] [SHIFT-] [2xSPACE] [SHIFT-] [SP 
ACE]JI[2XSPACE][SHIFT-][lOxSPACE] 
[2xSHIFT-*]K" 

10140 char, 31,19," [COM- 3] een[SPACE]patie 
nee-spel[SPACE]met[SPACE] 9 [SPACE]r 
ijen[SPACE]kaarten" 

10150 return 

25000 rem ** data van de kaarten ** 

25010 data"[CTRL-9][CTRL-3][SPACE]2[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]S 
[SPACE] [CRSR-UP]", "[CTRL-9] [CTRL-3 
][SPACE]3[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]S[SPACE][CRSR-UP]" 
data"[CTRL-9][CTRL-3][SPACE]4[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]S 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-3 
][SPACE]5[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]S[SPACE][CRSR-UP]" 
25030 data"[CTRL-9][CTRL-3][SPACE]6[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]S 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-3 
][SPACE]7[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]S[SPACE][CRSR-UP]" 
25040 data"[CTRL-9][CTRL-3][SPACE]8[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]S 
[SPACE][CRSR-UP]"[CTRL-9][CTRL-3 
][SPACE]9[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]S[SPACE][CRSR-UP]" 
25050 data"[CTRL-9][CTRL-3]1[SPACE]0[CRS 
R-DOWN][3xCRSR-LEFT][SPACE]S[SPACE 
][CRSR-UP]","[CTRL-9][CTRL-3]TbY[C 
RSR-DOWN][3xCRSR-LEFT]TSY[CRSR-UP] 
25060 data"[CTRL-9][CTRL-3]TvY[CRSR-DOWN 
][3xCRSR-LEFT]TSY[CRSR-UP]","[CTRL 
9][CTRL-3]ThY[CRSR-DOWN][3xCRSR-L 
EFT]TSY[CRSR-UP]" 

25070 data"[CTRL-9][CTRL-2]TaY[CRSR-DOWN 
][3xCRSR-LEFT]TSY[CRSR-UP]","[CTRL 
9][CTRL-3][SPACE]2[SPACE][CRSR-DO 

WN][3xCRSR-LEFT][SPACE]Z[SPACE][CR 
SR-UP]" 

25080 data"[CTRL-9][CTRL-3][SPACE]3[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]Z 

[CTRL-9][CTRL-3 


25020 


[SPACE][CRSR-UP] 

][SPACE]4[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]Z[SPACE][CRSR-UP]" 
25090 data"[CTRL-9][CTRL-3][SPACE]5[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]Z 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-3 
][SPACE]6[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]Z[SPACE][CRSR-UP]" 
25100 data"[CTRL-9][CTRL-3][SPACE]7[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]Z 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-3 
][SPACE]8[SPACE][CRSR-DOWN][3xCRSR 
-LEFT][SPACE]Z[SPACE][CRSR-UP]" 
25110 data"[CTRL-9][CTRL-3][SPACE]9[SPAC 
E][CRSR-DOWN][3xCRSR-LEFT][SPACE]Z 
[SPACE][CRSR-UP]","[CTRL-9][CTRL-3 
]1[SPACE]0[CRSR-DOWN][3xCRSR-LEFT] 
[SPACE]Z[SPACE][CRSR-UP]" 

25120 data"[CTRL-9][CTRL-3]TbY[CRSR-DOWN 
] [3xCRSR-LEFT]TZY[CRSR-UP]", "[CTRL 
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Checksum patience 




REGEL 1 137 

REGEL 2 252 

REGEL 3 171 

REGEL 10 9 

REGEL 20 15 

REGEL 30 48 

REGEL 40 155 

REGEL 50 158 

REGEL 60 211 

REGEL 70 130 

REGEL 80 154 

REGEL 100 138 

REGEL 110 192 

REGEL 120 23 

REGEL 130 236 

REGEL 140 89 

REGEL 150 130 

REGEL 160 142 

REGEL 200 238 

REGEL 210 184 

REGEL 220 80 

REGEL 230 23 

REGEL 240 192 

REGEL 250 72 

REGEL 260 23 

REGEL 270 200 

REGEL 280 78 

REGEL 290 23 

REGEL 300 190 

REGEL 310 77 

REGEL 320 23 

REGEL 330 33 

REGEL 340 142 

REGEL 400 117 

REGEL 410 166 

REGEL 420 58 

REGEL 430 32 

REGEL 440 142 

REGEL 500 73 

REGEL 510 201 

REGEL 520 52 

REGEL 530 130 

REGEL 540 142 

REGEL 600 243 

REGEL 610 114 

REGEL 620 201 

REGEL 630 142 

REGEL 1000 86 

REGEL 1010 234 

REGEL 1020 81 

REGEL 1030 103 

REGEL 1040 130 

REGEL 1050 70 

REGEL 1060 37 

REGEL 1070 221 

REGEL 1080 186 

REGEL 1090 21 

REGEL 1100 38 

REGEL 1110 130 

REGEL 1120 36 

REGEL 1130 182 

REGEL 1140 219 

REGEL 1150 228 

REGEL 1160 3 

REGEL 1170 236 

REGEL 1180 35 

REGEL 1190 20 

REGEL 1200 161 

REGEL 1210 21 

REGEL 1220 40 

REGEL 1230 189 

REGEL 1240 228 

REGEL 1250 186 

REGEL 1260 107 

REGEL 1270 134 

REGEL 1280 41 

REGEL 1290 68 

REGEL 1300 97 

REGEL 1310 136 

REGEL 1320 66 

REGEL 1330 54 

REGEL 1340 22 

REGEL 1350 193 

REGEL 1360 233 

REGEL 1370 44 

REGEL 1380 110 

REGEL 1390 52 

REGEL 1400 64 

REGEL 1410 155 


REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 


3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

10000 

10010 

10020 
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Amiga 


Het seizoen vordert weer. De lente is weer in het land. Het humeur van de mensen 
wordt beter naarmate de temperatuur stijgt en de zon langer schijnt. Ook in ons 
selecte computerwereldje blijft de invloed van de lente niet onopgemerkt. Ineens krijgt 
men weer zin om allerlei zorgvuldig gekoesterde programmeerdromen daadwerkelijk 
om te zetten naar een programma. Wat is er dan een betere informatiebron dan de 
TIPS en TRUCS hoek! Fasten your seatbelts, get your keyboard, hier zijn we weer 
met. 


Aanraders & meepikkers 



De mediterende Guru 

Meteen als goede start van deze 
aflevering een inslaande bom. Voor al 
de programmeurs in spé met een 
smalle beurs (de boeken zijn zo duur 
he!) hebben we hier een overzicht van 
de Guru-meditation foutcodes. U kent 
ze ongetwijfeld wel, DE grote angst 
van de Amiga bezitters, de zwarte 
schermen met bovenin een knippe¬ 
rende rode rand en een melding. Ech¬ 
ter, het is niet een prettig geschreven 
foutmelding, nee, bureaucratie ten 
top, alleen maar cijfers. Voor begin¬ 
ners een totale wanhoop, maar ook 
gevorderden kunnen hiermee nog be¬ 
hoorlijk met hun handen in hun haar 
komen te zitten. 

Waar gaat het nu om. Elke GURU- 
Meditation bestaat uit een stukje tekst 
en twee getallen gescheiden door 
een punt. Deze twee getallen zijn de 
sleutels tot het geheim. Door nu op te 
zoeken welke fout ze voorstellen kan 
men nagaan wat er ongeveer misge¬ 
gaan is. 

Wat is nu het formaat: 


terug te vinden in de foutcode. Door 
nu het ALERT TYPE (=TT) te OR’en 
met de AA, de twee eerste digits van 
de foutcode, krijgt men de werkelijke 
foutcode die op het scherm staat. 

AA is de zogenaamde ’SUBSYS- 
TEM_CODE’. Het is een wat nauw¬ 
keurigere aanduiding van in wat voor 
onderdeel van de soft- of hardware 
van de Amiga de fout is opgetreden. 
Dit zijn er een aantal. 

AA= 


00 : CPU 68000 


VERY_ALERT zijn, het is hierbij niet 
nodig om opnieuw te booten. Dit boot¬ 
en of eigenlijk resetten van de Amiga 
gebeurt wel. Dit is te wijten aan een 
’bug’ in de Kickstart 1.2 ROM van de 
Amiga. Volgens de berichten van 
Commodore moet deze fout in Kick¬ 
start 1.3 verholpen zijn. De Guru-me¬ 
ditation kan ook van het DEAD- 
END_ALERT type zijn. Hierbij gaat de 
Amiga zondermeer door zijn reset- of 
bootfase heen. Hoe is dit fouttype nu 
te herkennen: 


O ok deze keer hopen we voor ieder weer wat wils te hebben. Het blijft 
desondanks nog steeds roeien met de riemen die we hebben want voor 
deze hoek kunnen we nog veel meer reacties gebruiken. Zijn het tot nu toe 
tips en trucs die door ons zelf zijn verzameld, de tijd nadert snel dat we UW 
HULP NODIG HEBBEN!!!! Stuur ze daarom op al die kleine ideetjes, pro¬ 
gramma’s, speltips, etcetera. We kunnen alle programma’s, subroutines 
gebruiken. Het maakt niet uit in welke programmeertaal het is geschreven. 
Originaliteit staat voorop. 


Tips en Trucs Wantedü 


Stuur ze op naar Commodore 
Info, Postbus 43048, 1009 ZA, 
Amsterdam, en vermeldt er bij 
'Amiga Tips & Trucs’. _ 


TT = 


libraries 


Guru Meditation : (TT)AABBCCCC.DDDDDDDD 

TT stelt het zogenaamde 
’ALERT_TYPE’ voor. Elke Guru-me- 
ditation kan een zogenaamde RECO- 


: RECOVERY_ALERT 

80 : DEADEND ALERT 


00 


Dit ALERT TYPE is niet zondermeer 


01 

exec.1ibrary 

02 

graphics.library 

03 

layers.library 

04 

intuit ion.library 

05 

math.library 

06 

clist.library 

07 

dos.library 
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08 : ram.library 

09 : icon.library 

0A : expansion.library 

devices- 

10 : audio.device 

11 : console.device 

12 : gameport.device 

13 : keyboard.device 

14 : trackdisk.device 

15 : timer.device 

resources- 

20 : CIA's (parallele- 

en seriele poorten) 

21 : diskdrive 

22 : diversen 

overige bronnen- 

30 : Bootstrap 

31 : WorkBench 

32 : Disk-Copy 


De volgende group (BB) betreft een 
groep van algemene fouten. 

BB- 


00 :Fout kan niet in een klasse 
onderverdeeld worden 
01 :Te weinig geheugen 
02 :Een Library kon niet worden 

gegenereerd (MakeLibrary error) 
03 :Een Library kon niet worden 
geopend (OpenLibrary error) 

04 :Device kon niet geopend 
worden (OpenDevice error) 

05 :Hardware onderdeel reageert 
niet (OpenResource error) 

06 :I/0 error 
07 :I/0 niet aanwezig 


Tenslotte is er dan onderdeel CCCC. 
Dit geeft een nauwkeurige aanduiding 
van de fout. We geven een compleet 
overzicht per onderdeel. Eerst de 
trapcodes van de processor, vervol¬ 
gens de library fouten, daarna de de¬ 
vice fouten, de resource fouten vol¬ 
gen daarop en tenslotte de overige 
fouten. De gehele cijfercombinatie 
AABBCCDDDD wordt nu afgebeeld. 
Dus als u wilt zien of het een DEAD- 
END of RECOVERY_ALERT betreft, 
kijk naar het eerste cijfer van AA. Als 
deze een 8 is dan gaat het om een 


DEADEND_ALERT 

AABBCCDDDD' = 


processor_traps- 

00000002 :Bus Error, er is een fout. in 
de databus of de adresbus. 

00000003:Address Error, een oneven 

adres is er op de adresbus gezet. 

00000004:Illegal Instruction, een niet 
voor de MC68000 bestaande in¬ 

structie . 

00000005:Division by zero, een deling 

door nul. 

00000006:CHK instructie, ze test of een 
register tegen zijn uiterste getal be¬ 
reik komt. Als de grenzen overschreden 
worden dan treedt de fout op. 

00000007:TRAPV instructie. Deze fout 
wordt gegenereerd als bij gezette V 
bit de TRAPV instructie wordt ge¬ 
bruikt . 

00000008:Privelege Violation. Een zoge¬ 
naamd 'priveledged instruction' is ge¬ 
bruikt . 

00000009:Tracé mode. Stap voor stap mo¬ 
dus . 

0000000A:OP Code 1010 
code. 

0000000B:OP Code 1111 
code. 


Ongebruikte 

Ongebruikte 


op- 


op- 


exec.library- 

81000001:checksum-fout bij een excep- 
tion van de MC68000 

81000002:checksum-fout van ExecBase 

adres. 

81000003:checksum-fout 


bi j 


ka¬ 


ll¬ 


een library. 

In de praktijk betekent dit vaak een 
onvolledige of kortweg gezegd een 
potte library. 

81000004:Geen geheugen genoeg om een 
brary te maken. 

81000005:een onjuiste boeking 
heugen lijst (MemList). 

81000006:geen geheugen genoeg 
terrupt Servers. 

81000007:verkeerde pointer. 

81000008:Semaphore niet juist. 

81000009:twee keer de zelfde 
blokken vrij gegeven. FreeMemO 

8100000A:een nog niet bestaande Excep- 
tion vector werd aangeroepen. 


in de ge- 


voor In- 


geheugen- 


graphics.library 




07 

82010001:geen geheugen voor een 

Copper- 


(Copper Display) lijst 

■ • 



07 

82010002:geen geheugen 

genoeg 

voor 

de 


Copper Instructie Lijst. 



07 

82000003:de Copper Lijst 

is vol 

• 



82000004:indelingsfout 

in de 

Copper 

07 

Lijst. 





82010005:geen geheugen 

genoeg 

voor 

de 

07 

Copper Lijst Header. 




07 

82010006:geen geheugen 

genoeg 

voor 

de 


Long Frame. 




07 

82010007:geen geheugen 

genoeg 

voor 

de 

07 

Short Frame. 




07 

82010008:geen geheugen 

genoeg 

voor 

de 


Flood() instructie. 




07 

82010009:geen geheugen 

genoeg 

voor 

de 



een 


genoeg om een 


genoeg om een 


TextO instructie. 

8201000A:geen geheugen genoeg voor de 
BltBitMap() instructie. 

8201000B:verkeerd geheugengebied aange¬ 
roepen . 

82010030 :er is een fout opgetreden bij 
het aanmaken van een nieuwe ViewPort 
(MakeVPort). 

82011234:GfxNoLCM (geen grafische buff¬ 
er beschikbaar). 

layers.library- 

83010001:geen geheugen genoeg voor voor 
Layers (LayersNoMem). 

intuition.library- 

84000001:een onbekend Gadget type. 

84010002:geen geheugen genoeg om 
Port aan te maken. 

84010003:geen geheugen 
Menu te maken. 

84010004:geen geheugen 
SubMenu te maken. 

84010005:geen geheugen 
MenuBalk. 

84000006:de positie van 
verkeerd oftewel, onder 
van het scherm. 

84010007:geen geheugen genoeg voor 
OpenScreen() 

84010008:geen geheugen genoeg voor het 
maken van een RastPort 

84000009:onbekend of verkeerd 
pe in SCREEN_TYPE 

8401000A:geen geheugen genoeg 
get 

8401000B:geen geheugen genoeg voor Open- 
Window() 

8400000C:verkeerde status in het status- 
register bij opening van de 'intui¬ 
tion .library' 

8400000D:verkeerde Message via de IDCMP 

8400000E:niet genoeg geheugen voor de 
Message stack 

8400000F:het Console Device kon niet 
geopend worden 


genoeg 
de 


voor de 


MenuBalk is 
het nulpunt 


schermty- 
voor Gad- 


geheugen genoeg bij de 


dos.library-- 

07010001:geen 
Startup 

07000002:het commando 
de niet goed zijn 
niet beëindigd 

0003:fout in QueuePacket. 
goed overgedragen 


EndTask() 
taak, de 


vervul- 
Task is 


Data niet 


die niet verwacht was 

0005:het commando FreeVec() heeft 
niet goed gewerkt 

0006 :er is een fout in de gegevens 
van het gelezen Disk-blok 

0007:foutieve of beschadigde BitMap 
0008:het File-nummer (Key) is al 
vrijgegeven 

0009:verkeerde Checksum 
000A:Disk Error 

000B:File-nummer (Key-nummer) bui¬ 
ten het bereik 

000C:'Overlay-Hunk' in de Bootsec- 
tor is foutief 
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ram.library- 

08000001:Bad Segment List, een foutieve 
boeking in de geheugenlijst 

expansion.library- 

0A000001:er is een fout geconstateerd in 
de aan de Amiga gekoppelde Hardware 

trackdisk.device- 

14000001:Calibrate: Seek Error, er is 
een fout geconstateerd bij de zoeko- 
peroperatie op de schijf 
14000002:er is een fout opgetreden tij¬ 
dens het wachten op een Timer impuls 

timer.device- 

15000001:er is een fout opgetreden tij¬ 
dens het gebruik van het Timer Device 
15000002:een 'smerige' netspanning 
geeft problemen bij het Timer Device 

disk-resource- 

21000001:de geplaatste diskette is niet 
herkenbaar 

21000002:interrupt: er is (zijn) geen 
actieve loopwerk(en) gekoppeld aan de 
Amiga 

BootStrap- 

30000001:er is een foutmelding gekomen 
terwijl de dos.library tijdens de 
bootfase nog niet geopend was 

Dit waren alle specifieke foutcodes. 
Dan rest ons nog één blok, het blok 
DDDDDDDD. Hierin is het adres ver¬ 
meldt waar de fout opgetreden is. Nu 
is het slechts nog een kwestie van de¬ 
buggen van de software. Heel vaak 
zult u tijdens het ontwikkelen van de 
software de codes '00000003’ en 
'00000004' tegenkomen. Hierbij is 
het, in bijvoorbeeld een C program¬ 
ma, niet direct mogelijk een bepaald 
programmadeel als foutief aan te 
merken. Toch kunt u dan met enig lo¬ 
gisch redeneerwerk de fout wel vin¬ 
den. Hiervoor zijn geen echte logi¬ 
sche paden waarmee u de fout kunt 
vinden. Ervaring brengt inzicht met 
zich mee, zullen we maar zeggen. 

Onzichtbare pointer 

Een BASIC-listing nu weer. Er zijn 
van die dagen dat u denkt, wat moet 
ik in vredesnaam met die walgelijke 
muispointer. Kunt u zich hierin vin¬ 
den? Goed, de oplossing voor dit pro¬ 


bleem is hier onder vermeldt. Het 
principe komt neer op de aard van de 
pointer. De muispointer is de eerste 
van de hardware-sprites. Deze spri- 
tes kunt u afzonderlijk aan of uit scha¬ 
kelen. Hiervoor levert de ’graphics.li¬ 
brary’ een functie genaamd 'FreeSpri- 
te(n)’. Roep deze aan met in ’n’ het 
nummer van de sprite vermeldt en ta- 
taaa, weg is de sprite! 

LIBRARY "graphics.library" 

CALL FreeSprite (0) 

Dit kleine routinetje zorgt ervoor dat 
de muispointer ’history’ is. 

Hoe krijg ik ’m weer terug....resetten?, 
vraagt u zich af. Beweeg de muis 
eens. Daar is ie weer!!! 



CIA, FBI, KGB, VIA 

Bovenstaand kopje doet vermoeden 
dat het verhaal een begin is van een 
spannende spionage thriller. Helaas 
we gaan het niet over de 'Central in- 
telligence Agency’ hebben maar over 


de 'Complex Interface Adapters’ in de 
Amiga. Hardware freaks kennen de¬ 
zen beter als de 8520(A)’s. Deze 
twee IC’s regelen alle seriële- en pa- 
rallele in- en uitvoer. Hoe zijn dezen 
nu te programmeren. Het antwoord 
luidt in vele gevallen; gewoon rechts¬ 
treeks beinvloeden. Vanuit BASIC 
kunt u getallen gaan 'poken', in C kent 
u aan een basisvariabele het adres 
toe en u kunt beginnen. Hoe ziet de 
geheugenkaart van de ClA’s er uit? 


CIA-A: 

$BFE001:Poort A, bedoelt voor meerdere 
toepassingen. 

bit7 :Vuurknop 1 

bit6 :Vuurknop 0 

bit5 :RDY, ready-signaal van de disk¬ 
drive (s) 

bit4 :TK0, track 00-signaal van de 
diskdrive(s) 

bit3 :WPRO, write-protect signaal van 

de diskdrive(s) 

bit2 :CHNG, diskchange signaal van de 
diskdrive(s) 

bitl :LED, besturing van de powerled 

(0=uit) . In vele Amigamodellen bete¬ 
kent dit ook besturing van het High- 
pass filter. 

bitO :OVL, Memory OverLay bit. Ten 
alle tijden niet wijzigen. Een 1 be¬ 
tekent dat er kopie van het Kickstart 
ROM op $00000000 komt te staan. 
$BFE101:Poort B, de Centronix poort. 
Vrij programmeerbaar als u geen para- 
lelle toepassingen heeft. 

$BFE201:Data direction register poort A. 
Geeft aan of de poort op lezen of 
schrijven staat. (0=lezen, Inschrij¬ 
ven ) 

$BFE301:Data direction register poort B. 
Deze is bedoelt voor de Centronix in¬ 
terface. Zonder toepassingen kunt u 
deze vrij programmeren. 

$BFE401:TimerLO-A, timer A is in gebruik 
voor communicatie met het toetsenbord. 
$BFE501:TimerHI-A, timer A 
$BFE601:TimerLO-B, het besturingssys¬ 
teem gebruikt deze voor meerdere doel¬ 
einden . 

$BFE701:TimerHl-B, timer B 
$BFE801:EventCounter bitsO-7. Gebruikt 
voor het tellen van de 50Hz impulsen 
van de netspanning. 

$BFE901:EventCounter bits8-15. 

$BFEA01:EventCounter bitsl6-23. 
$BFEB01:geen functie 

$BFEC01:Serial Port. Via deze seriële 
poort komen de toetsenbord gegevens 
binnen. 

$BFED01:Interrupt Control Register, 
hierin wordt bepaalt welke interrupt- 
bronnen een interrupt afgeven. 
bit7 :lezen: IR, geeft aan dat er een 
interrupt geweest is. schrijven: 

S/C, Set/Clear, geeft aan of een bit, 
wat u in het ICR set of reset, door 
een interrupt of 0 (reset) of 1 (set) 
wordt gezet. 
bit5,6 : 0 

bit4 :FLAG, gezet als er een negatieve 
flank op de FLAG-lijn van CIA-A is. 
bit3 :SP, het schuifregister van de se¬ 
riële poort is vol of leeg, afhanke¬ 
lijk van in- of uitvoer. 
bit 2 : ALARM, de EventCounter en de 

ALARM waarde zijn aan elkaar gelijk, 
bitl :TB, onderloop van Timer B 
bitO :TA, onderloop van Timer A 
$BFEE0 1:Stuurregister A, hierin worden 
de eigenschappen van timer A bepaalt, 
bit7 :niet gebruikt 

bit6 :SPMODE, seriële poort, 0=ingang, 
l=uitgang 

bit5 :INMODE, welke bron te gebruiken, 
0=klok, l=CNT-pulsen. 
bit4 :LOAD, l=geforceerd laden (stro- 
be) . 

bit3 :RUNMODE, 0=continue lopen, l=één 
keer (one shot) 
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bit2 :OUTMODE, signaal op PB6, 0- pul- 
se, 1= toggle 

bit 1 :PBon, timer signaal op PB, 0=nee, 
1- ja 

bitO :START, l=start timer 

SBFEF01:Stuurregister B, hierin worden 

de eigenschappen van timer B bepaalt. 

bit? :ALARM, 0=Time Of Day klok (TOD), 
1-^alarm van Event Counter 
bit.5, 6: INMODP, 00=klok, 01=CNT-pulsen, 
10-timerA, 11= timerA+CNT 
bit4 : LOAD, l=geforceerd laden (sLrobe) 

bit3 ; RUNMODE, 0= continue, l=one-shot 

bit2 rOUTMODE, signaal op PB7, 0-pulse, 
1= toggle 

bitl :PBon, timer signaal op PB7, 
0=nee, l=ja 

bitO ;START, 1= start timer 

CIA B: 

$BFD000 :Poort A, seriële poort en Cen¬ 
tronix interface. 

bit7 :DTR, Data Terminal Ready signaal 

van seriële interface 
bit6 :RTS, Ready To Send signaal 

bit5 :DCD, Data Carrier Detect signaal 

bit4 :CTS, Clear To Send signaal 

bit3 :DSR, Data Set Ready signaal 

bit 2 : SEL, select signaal van de Cen¬ 

tronix interface 

bitl :POUT, Paper Out signaal van de 
Centronix interface 

bitO :BUSY, Busy signaal van de Centro¬ 
nix interface 

$BFD101:Poort B, gereserveerd voor de 
diskdrive's 

bit7 : MTR, motor signaal voor diskdri¬ 

ve (s), l=aan, 0=uit 


bit 6 

:SEL3, 

selecteer 

drive 

3 


bit 5 

:SEL2, 

selecteer 

drive 

2 


bit 4 

:SEL1, 

selecteer 

drive 

1 


bit 3 

: SEL0, 

selecteer 

interne 

drive 

bit 2 

: SIDE, 

welke zi 

jde van 

de disk 


moet gelezen werden? 
bitl :DIR, richting-signaal voor de 
diskdrive (DIRection) 
bitO :STEP, step-signaal voor diskdrive 
$BFD2 01:Data Direction Register A, 1 = 
schrijven (signaal gaat naar buiten), 
0=lezen 

$BFD301:Data Direction Register B, idem 
als boven, nu voor Poort B 
$BFD401:TimerLO-A, lowbyte van timer A. 
Timer A alleen gebruikt voor het 'ti¬ 
men' van de gegevens van de RS232 
poort 

$BFD501:TimerHI-A, hibyte van timer A 
$BFD601:TimerLO-B, deze synchroniseert 
de Blitter met het scherm 
$BFD701:TimerHI-B, hibyte van timer B 
$BFD801:Event Counter bits 0-7, de Event 
Counter telt de impulsen van de hori¬ 
zontale synchronisatie van het beeld¬ 
scherm 



$BFD901:Event Counter bits 8-13 
$BFDA01: Event Counter bits 15-24 
$BFDB01:niet in gebruik 
SBFDCOl:Seriële Poort, niet in gebruik 
$BFDD01: interrupt Control Register. Dc 
bits zijn hetzelfde als in CIA A 
$BFDE01:Stuurregister A, zie CIA A voor 
uitleg 

$BFDF0 1:Stuurregister R, idem 

Dit waren globaal de gegevens van 
de seriële poort. Hopelijk kunt u hier¬ 
mee het probleem waar u nu al dagen 
mee bezig was, oplossen. Natuurlijk 
zijn er nog veel meer dingen over de 
ClA’s bekend. Hiervoor zijn in de 
boekhandel verschillende goede boe¬ 
ken te krijgen. 



AutoRequesters 

Hoe vaak is het in een programma 
niet nodig, de simpele JA/NEE ant¬ 
woorden. Ü kunt in C dit natuurlijk op¬ 
lossen door met behulp van getchar() 
of scanf() invoer vanaf het toetsen¬ 
bord te lezen. Toch is dit niet de echte 
’Amiga Methode’. We willen juist met 
de muis het JA- of NEE antwoord bin¬ 
nenkrijgen. Het besturingssysteem 
geeft hiervoor een simpele oplossing. 
De AutoRequester’s. Hoe ziet een 
AutoRequester er uit? 
Antwoord=AutoRequest(Window,Bo 
dyT ext, PositiveT ext,NegativeT ext, P 
ositiveFlags,NegativeFlags,Width,He 
ight) 

Window pointer naar een 

Window-structuur 
BodyText IntuiText struc¬ 
tuur voor de 
'vraag' 

Positive TextIntuiText 

structuur voor 
het JA antwoord 
NegativeText IntuiText 

structuur voor 
het NEE antwoord 
PositiveFlagsIDCMP-flag 

voor het JA veld 
NegativeFlagsIDCMP-flag 


voor het NEE veld 
Width breedte van 

de AutoRequester 

Height hoogte van 

de AutoRequester 

Het is dus noodzakeiijk twee IntuiText 
structuren op te zetten. Een IntuiText 
structuur is de Intuition voorziening 
voor tekst op het beeldscherm. In de 
IntuiText structuur kunt u meerdere 
gegevens van het af te printen stuk 
tekst opgegeven, als welke kleur, wat 
voor font, waar op het beeldscherm, 
etcetera. 

Om nu het bovenstaande verhaal te 
illustreren hebben we even een voor¬ 
beeld bijgevoegd. 

#include "functions.h" 

#include "exec/types.h" 

#include "intuition/intuitionbase.h" 

struct IntuitionBase *IntuitionBase; 
struct IntuiText Einde = { 

3,0,JAM1,25,10, NULL, 

(UBYTE *)"Programma beëindigen?", 
NULL }; 

struct IntuiText JA = { 

3,0,JAM1,5,3,NULL, 

(UBYTE *)” Ja ",NULL }; 
struct IntuiText NEE = { 

3,0,JAM1,5,3,NULL, 

(UBYTE *)"NEE!",NULL }; 

main() 

{ 

BOOL Antwoord; 


if ( ! (IntuitionBase=(struct IntuitionBa- 
se *)OpenLibrary("intuition.libra- 
ry",0) ) ) 

{ 

printf("Geen intuition.libraryXn" ) ; 
exit(FALSE); 

} 

while((Antwoord=AutoRequest(IntuitionBa 
se->ActiveWindow,&Einde,&JA,&NEE,0,0, 
250,60))==FALSE); 


CloseLibrary(IntuitionBase) ; 

} 

In dit voorbeeld is te zien dat het pro¬ 
gramma in een ’while’ lus blijft hangen 
totdat het JA gadget in de AutoRe¬ 
quester wordt aangeklikt. Deze actie 
levert een waarde TRUE op waarna 
uit de while lus wordt gegaan. Voor 
simpele JA/NEE spelletjes, etcetera 
is het de ideale oplossing! 

Tot besluit 

Deze keer niet zoveel variatie. De 
ruimte voor deze hoek was snel vol 
door het overzicht van de Guru medi- 
tations. De volgende keer weer wat 
meer verschillende onderwerpen. De 
volgende keer dan ook voor de eerste 
keer onderwerpen door de lezers 
aangedragen. Dus blijf erbij en stuur 
al uw suggesties, reacties, vragen, 
programma’s op naar ons dan ont¬ 
staat er een echte lezershoek! 
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Midgetgolf is een spel dat velen aantrekt, maar helaas in Nederland niet altijd ge¬ 
speeld kan worden. Het weer gooit nog wel eens roet in het eten. Electronic Arts heeft 
hier wat opgevonden. Een Amiga, het pakket Zany-golf en wat geduld; zie hier de 
ingrediënten voor vele uurtjes plezier. 

Zany golf 



Het spel kan met maximaal vier per¬ 
sonen worden gespeeld en heeft ne¬ 
gen verschillende banen. Oplopend in 
moeilijkheidsgraad. Bij het golven is 
het een goede gewoonte om te spre¬ 
ken over holes, waarbij wij ons dan 
maar aansluiten. Het is de bedoeling 
de bal in zo min mogelijk slagen in het 
putje aan het einde van de hole te 
slaan. Nu is het niet op alle banen mo¬ 
gelijk dit in één keer te doen. Van elke 
baan is bekend hoeveel slagen er ge¬ 
middeld over een hole worden ge¬ 
speeld. Dit aantal slagen wordt "par" 
genoemd. Bijvoorbeeld: op baan 1 is 
par 3. Speelt men nu de bal in drie 
slagen in het putje, dan speelt men 
gemiddeld (wat erg goed is). Dit ge¬ 
middelde wordt bij elke baan links bo¬ 
ven op het beeldscherm weergege¬ 
ven. Het spel is voor een speler afge¬ 
lopen, aan het einde van het par¬ 
cours, maar ook als het maximale 
aantal slagen is bereikt. Rechtsboven 
staat het aantal slagen dat men nog 
over heeft om het spel te vervolgen. 
Bij elke baan wordt dit aantal ver¬ 
hoogt met het maximale aantal sla¬ 
gen dat er voor die baan beschikbaar 
is. Dus hoe meer men onder par 
speelt des te meer ballen blijven er 
voor de volgende baan over. Het spel 
is tijdelijk te onderbreken door het in¬ 
drukken van de "P" toets. Het score- 
verloop krijgt men op het beeld¬ 
scherm door de "S" toets in te druk¬ 
ken. Het programma staat dan ook 
automatisch op pauze. 



Op elke baan kan het gebeuren dat er 
een tijdbonus wordt uitgeloofd. Het is 
dan zaak om de bal zo snel mogelijk 
in het putje te slaan. Het maximale 
aantal bonuslagen is vier, en dat loopt 
langzaam terug naar één. Een extra 
mogelijkheid om extra slagen te ver¬ 
dienen is een soort vogeltje dat soms 
op de baan verschijnt. Deze moet dan 
zo snel mogelijk geraakt worden. Het 
blijft opletten dus. 

Na het opstarten van het spel moet er 
eerst worden ingegeven met hoeveel 
spelers men het spel wil spelen. 
Speelt men alleen dan werkt het toch 
veel fijner door meerdere spelers te 
kiezen. Is men namelijk door zijn sla¬ 


gen heen dan start het spel opnieuw. 
Nu komen we gelijk op een nadeel 
van het spel: Het wordt geheel op¬ 
nieuw geladen. Dit neemt de nodige 
tijd in beslag, waarin men maar zit te 
wachten. Speelt men met meerdere 
spelers dan kan er door de andere 
spelers gewoon worden doorge¬ 
speeld tot de laatste speler af is. Na¬ 
dat het aantal spelers is ingegeven 
verschijnt er een overzicht van de eer¬ 
ste hole. Hierop is goed te zien waar 
de bal moet worden afgeslagen en 
waar de bal heen moet. Het is zaak de 
baan van de bal goed te bestuderen. 
Het starten van deze hole gebeurt 
door het indrukken van de linker muis¬ 
knop. Het afslaan is erg eenvoudig, 
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het kruisje op de bal zetten, de linker¬ 
muisknop indrukken. Nu houden we 
de knop ingedrukt terwijl we de muis 
naar achter trekken. De richting kun¬ 
nen we nu bepalen door een denk¬ 
beeldige lijn te trekken, vanaf het 
kruisje, over de bal, naar het hole of 
een andere plaats waar we heen wil¬ 
len slaan. Hoe verder we het kruisje 
van de bal zetten des te harder zal de 
bal gaan. Om dit geheel beter te kun¬ 
nen beoordelen verschijnt er een stip¬ 
pellijn tussen het kruisje en de bal. 
Denk er wel om meestal sla je veel en 
veel te hard. 

De eerste baan is de WindMill, de 
windmolenbaan. Aan het eind van het 
eerste traject staat een windmolen 
hevig te draaien. Nu is het de kunst de 
bal in één keer door de opening in het 
midden te spelen. Het kan, maar het 
is niet makkelijk. Lukt dit, dan wordt 
het beloond met een extra vrije slag. 
Gaat dit niet doordat bijvoorbeeld net 
één van de wieken er voor zit, dan is 
er nog niets aan de hand. Bij het te¬ 
rugrollen loopt de bal van de helling 
zo naar het tweede traject. Van hieruit 
is het een kwestie van nauwkeurig en 
rustig spelen. Baan twee is de be¬ 



roemde hamburger baan. Hier staat 
een levensecht broodje hamburger, 
inclusief uiringen, boven op het hole. 
Door de muisknop een aantal keren 
snel achter elkaar in te drukken begint 
dit broodje te dansen. Nu komt de 
hole vrij en door rustig via de ketchup 
te spelen loopt de bal in het hole. Ze¬ 
ker hier geldt, beter te langzaam dan 
te snel, want omhoog spelen is erg 
moeilijk. De muren, baan drie, hoeft 
helemaal geen problemen op te leve¬ 
ren: even goed kijken en nadenken. 
Baan vier, de flipperkast, is één van 
de spectaculaire onderdelen. Gebruik 
de flippers op het juiste moment, alles 
wat kan branden moet gaan branden 
en daarna ook nog proberen de bal in 


het gat te schieten. Valt de bal per on¬ 
geluk achter één van de blokjes, dan 
even opletten. Omdat de bal nu niet te 
zien is en het blokje op de bal ge¬ 
plaatst moet worden, kan het spel, zo¬ 
als mij wel eens gebeurt is, hier afge¬ 
lopen zijn. Gelukkig staat bij het star¬ 
ten het kruisje precies op de bal, nu 
niet schuiven met de muis maar direct 
de muisknop indrukken en dan pas 
verplaatsen. Nu is het niet moeilijk 
meer om de bal in het putje te spelen. 

Ventilatoren spelen een grote rol bij 
de volgende baan. Het is zaak deze 
voor je te laten werken. Door met de 
muis te draaien zijn de ventilatoren te 
draaien. Zij kunnen daardoor de bal 
een mooie beweging voorwaarts ge¬ 
ven. Maar denk erom, selectief ge¬ 
bruiken, anders gaan ze tegen je wer¬ 
ken. Een prachtige baan is het Magie 
Carpet, en magie komt hier zeker aan 
te pas. Is de bal op één van de ge¬ 
blokte velden, let er dan op dat je de 
muis niet stil houd. Door deze in de 
juiste richting te bewegen kan de bal 
in de richting van de hole gebracht 
worden, op magische wijze. Hier blijkt 
het vaak mogelijk de bal in éénmaal in 
het hole te spelen. Eén van de moois¬ 
te grafische afbeeldingen is ongetwij¬ 
feld het Kasteel. Hier is alles veel 
moeilijker dan het lijkt. Rechtdoor 
spelen, want alleen de snelheid is be¬ 
langrijk. Een extra vrije bal krijg je, als 
de bal in het midden door de kasteel- 
poort wordt gespeeld. Op de binnen¬ 
plaats moet voorzichtig worden ge¬ 
speeld, de muurtjes blijken grote ob¬ 
stakels te zijn. Het hole in de volgen¬ 
de baan ligt boven op een heuvel. 
Dus te hard, of te zacht wordt onmid¬ 


dellijk afgestraft. Om het geheel nog 
wat moeilijker te maken verplaatst het 
hole ook nog van plaats. De bumpers 
aan het eind van de heuvel kunnen de 
bal weer wat extra snelheid geven. 
Het laatste hole is ook het moeilijkste. 
Voor elke baan wordt bij het over- 
zichtsscherm een tip gegeven. Dit ge¬ 
beurt bij deze hole niet. Met andere 
woorden: zoek het zelf maar uit. Wij 
zullen U alleen vertellen dat de knop¬ 
pen op de computer een belangrijke 
rol spelen bij het doorlopen van deze 
baan. 



Elk onderdeel wordt begeleid door 
een muziekje in stereo. Doet men te 
lang over een baan, dan wordt dit 
soms wel wat eentonig, maar het ge¬ 
luid van de in het hole vallende balle¬ 
tje maakt veel goed. Jammer dat er 
maar negen holes zijn, maar Electro¬ 
nic Arts kennende zal het wel niet al 
te lang duren voor er diskettes met 
extra holes op de markt komen. 
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Dat de Amiga zich uitstekend leent voor het maken en vervormen van geluiden is 
bekend. In toenemende mate maken amateurs en professionals gebruik van de 
muzikale kwaliteiten van dit medium. Een spectrum-analyser kan in dit verband prima 
diensten bewijzen als ‘grafisch hulpje’. Vandaar dat we ditmaal in onze zelfbouw-ru- 
briek het bouwen van zo’n analyser behandelen en de sampler, die hierbij nodig is. 

Amiga Zelfbouw 


sampler & spectrum-analyser 

E en spectrum-analyser geeft geluiden op een grafische manier weer. Dit 
kan veel voordelen hebben bij het zelf maken of het vergelijken van 
bepaalde geluiden via de computer. Bij de Amiga is daar een stukje hard¬ 
ware voor nodig en een simpel programmaatje. In dit artikel geven we een 
voorbeeld van de software en laten zien hoe je de benodigde hardware zelf 
bouwt. 



De Spectrum Analyser aan het werk 


Bouw uw eigen spectrum-analyser 

De Amiga wekt het geluid op een an¬ 
dere manier op, dan de meeste ande¬ 
re computers in die prijsklasse (en 
nog duurdere). 

De Amiga wekt het geluid digitaal op, 
in tregenstelling tot analoog d.m.v. 
een geluids-chip. De Amiga heeft ook 
een geluids-chip, maar deze werkt di¬ 
gitaal en heet Paula. Paula doet nog 
meer dan het geluid opwekken, na¬ 
melijk de seriële poort regelen, inter- 
rupt afhandelen, en analoge joysticks 
en de diskdrive besturen. 

Er wordt gezegd dat de Amiga com- 
pact-disc kwaliteit heeft, maar dat is 
absoluut niet waar. Bij de Amiga zijn 
de geluidsregisters 8 bits breed. De 
data kunnen dus maximaal een waar¬ 
de van 255 aannemen (dit is 2 A 8). Dit 
is te zien in afbeelding 1, (de sinus 
functie). Een CD-speler werkt met 
een samplebreedte van 16 bits. Deze 
kan dus de maximale waarde van 
65535 aannemen (dit is 2 A 16). Een 
compact-disc speler heeft dus een 



Afbeelding 1 


oplossing die 256 keer zo hoog is. Als 
je goed luistert naar het geluid van de 
Amiga hoor je ook iets ruis. 

Voor de kwaliteit van het geluid is 
eveneens van belang dat de sample- 
frequentie voor een natuurgetrouwe 
sample (een sample is een blokje met 
data, dit zijn waarden die alle teza¬ 
men het geluid vormen) minstens 2 
maal zo hoog moet zijn als de hoog¬ 
ste frequentie in het te samplen sig¬ 
naal. Het menselijke oor kan geluiden 
tot bijna 20 kHz waarnemen. Voor 
een goede sample heb je dus een 
sample-frequentie nodig van min¬ 
stens 40 kHz. Een compact-disc spe¬ 


ler heeft een sample-frequentie van 
44,1 kHz. De Amiga verwekt het ge¬ 
luid met een maximale sample-fre¬ 
quentie van 28,2 kHz. Behalve bij de 
nieuwe Audiomaster 2 daar staat dat 
deze een sample-frequentie heeft van 
44,1 kHz. Dit kan in principe niet om¬ 
dat de hardware dit nooit aankan. 

Vijf seconde muziek met een sample- 
frequentie van 44,1 kHz (zoals bij een 
compact-disc speler) neemt een ge¬ 
heugen in van ruim 440 kilobytes (dit 
is mono). 

Vijf seconde muziek op een Amiga in 
de best mogelijke kwaliteit neemt een 
geheugen in van 140 kilo bytes. 
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Afbeelding 2. 
Het schema 


Het ledje 

Het ledje kan op de Amiga 500/2000b 
worden uit of aan worden geschakeld. 
Als het ledje wordt uitgeschakeld 
wordt ook het geluids-filter uitgescha¬ 
keld. Als het ledje aan staat worden 
alle frequenties boven de 7 kHz afge¬ 
bogen naar beneden. Als deze uit¬ 
staat zal dit pas gebeuren bij 14 kHz. 
Het ledje kan vanuit BASIC als volgt 
worden geschakeld: 

POKE 12575233,3 

POKE 12574721,0 powerled aan 

POKE 12574721,2 powerled uit 

Vanuit assembler gaat het als volgt: 

move.b #3,12575233 

move.b #0,12574721 powerled aan 

move.b #2,12574721 powerled uit 

De hardware 

De schakeling bestaat uit twee ge¬ 
deeltes, het ene gedeelte is de eigen¬ 
lijke AD omzetter en de andere helft is 
een eenvoudige versterker schake¬ 
ling. De AD omzetter zet het signaal 
om van analoog naar digitaal (8 bits) 
zodat de Amiga het kan verwerken. 
De versterker versterkt het binnenko¬ 
mende audiosignaal. De potmeter PI 
dient er voor om de sampler grof af te 
regelen, zodat er een rechte streep in 
het midden van het scherm staat als 
er geen signaal op de sampler aan¬ 
wezig is. De potmeter genaamd P2 
dient ervoor om de streep fijn af te re¬ 
gelen. Voor dat er ook maar iets is af 
te regelen moet eerst de drukknop SI 
worden ingedrukt om de AD omzetter 
te starten. 

De potmeter P3 is er om het volume 
van 0 tot maximaal te regelen, dit is 
ook op het scherm te zien als er sig¬ 
naal op staat. Je kunt ook gewoon de 
versterker harder zetten. 


De bouw 

Het schema is klein genoeg om op 
een experimenteer-printje te bouwen. 
Het is geschikt voor iedereen die weet 
wat een soldeerbout is. De bouwkos¬ 
ten bedragen ongeveer ƒ 35,-. 

De 'sampler' wordt op de parallel 
poort aangesloten zoals in het sche¬ 
ma staat afgebeeld (afbeelding 2). De 
nummers met een P ervoor komen 
overeen met de nummers van de pa- 
rallele connector bij de Amiga 500. 
Denk erom de condensators en IC’s 
goed om te zetten. 

Benodigde onderdelen: 

° IC1 ADC0804 
° IC2 MCI 458 
° IC3 ICL7660 
° PI Potmeter 10 K Ohm 
° P2 Potmeter 1 K Ohm 
° P3 Potmeter 100 K Ohm 
° Cl ,C2 10 micro Frad/63 V 
° C3 680 nano Farad 
° C4 150 pico Farad 
° R1 ,R2 1 K Ohm 
° R3,R4,R5 10 K Ohm 
0 SI drukknop 

° 1 experimenteer print (70X80 mm) 

° 1 25 polige sub D male connector 
(voor A500/A2000) 

0 Minimaal 10 aderig draad (onge¬ 
veer 40 cm lang) 

De software 

De software dient ervoor om de waar¬ 
den die de computer binnen krijgt via 
j de sampler om te zetten in grafieken. 
Het programma is menu gestuurd. Als 
het programma is ingetikt en de sam¬ 
pler gebouwd dient de sampler te 
worden afgeregeld. Dit doet men als 
volgt: De sampler wordt op de compu¬ 


ter aangesloten als deze uitstaat, ver¬ 
volgens wordt de software ingeladen. 
Nu wordt menu keuze Graph4 geko¬ 
zen via de rechter muistoets. Er ver¬ 
schijnt dan een streep op het scherm. 
Vervolgens moet de drukknop op de 
sampler worden ingedrukt. De lijn zal 
nu op een andere plaats verschijnen. 
Nu moet men met de potmeters PI en 
P2 de lijn in het midden van het 
scherm zetten door aan de potmeters 
te draaien. Dit alles gebeurt terwijl er 
geen signaal op de sampler is aange¬ 
sloten. Als de lijn in het midden staat 
kan men een signaal op de sampler 
aansluiten. Dit kan gedaan worden 
als de computer aanstaat. 

Men kan tussen de verschillende 
Graph modes kiezen door eerst op de 
linker muistoets te drukken om de 
oude Graph mode te verlaten en ver¬ 
volgens een nieuwe te kiezen met be¬ 
hulp van de rechter muistoets en de 
menu’s boven in het scherm. Onder in 
het scherm staat vermeld in welke 
mode het programma staat. Als bo¬ 
nus kan men ook nog luisteren naar 
de muziek die op de sampler is aan¬ 
gesloten. De kwaliteit van deze sam¬ 
pler is niet zo best, maar goed genoeg 
voor dit programma. Dit programma is 
eveneens bruikbaar met de meeste 
andere samplers, in dat geval heeft 
men meer aan de monitor functie. 

Als extraatje is er een roterende muis- 
pointer aanwezig tijdens het kiezen 
van een van de mogelijkheden. 

Het intikken van de listing 

De getallen voor de regels dienen niet 
te worden ingetikt. Deze zijn zuiver en 
alleen om aan te geven waar een 
nieuwe regel begint. De Seka assem¬ 
bler die wij hebben gebruikt om dit 
programma te maken zal zelf de ge¬ 
tallen neerzetten. De regels met punt¬ 
komma (;) ervoor bevatten alleen 
maar commentaar en uitleg wat er in 
dat programma deel gebeurt. Zo kan 
men ook delen uit het programma ha¬ 
len en in je eigen programma gebrui¬ 
ken. 

Het programma moet eerst worden 
geassembleerd (A) en vervolgens 
worden weggeschreven met WO 
(Write as Object file). Nu kan het pro¬ 
gramma vanuit de CLI worden ingela¬ 
den via de naam die bij WO is ingege¬ 
ven. De disk waar het programma op 
staat moet via de Preferences op 80 
karakters zijn ingesteld. Het program¬ 
ma werkt in de hoogste resolutie. Hier 
komt de Seka listing: 

1 ;*** Spectrum Analyser *** 

2 ;* (c) Hans van der Pol * 

3 /publicatie recht: 

4 ;Commodore Info 

5 .- 
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6 ;Je hebt een eenvoudige sampler 

7 ;nodig bij dit programma om 


8 ;de muziek om te zetten naar waarden 

9 ;voor de spectrum analyser (D - A) 

10 ;- 


11 ;Uit graphl,2,3,4 door op linker 

12 ;toets te drukken!!!! 

13 ;bij voorkeur op een disk zetten 

14 /waarbij de preferences op 80 


15 

16 
17 

/karakters per 

regel 

staat!! 

t 

/-- Offsets -- 



18 

openwindow 

= 

-204 

19 

closewindow 

= 

-72 

20 

openscreen 

= 

-198 

21 

closescreen 


-66 

22 

openlib 

= 

-408 

23 

closelibrary 

= 

-414 

24 

setapen 

= 

-342 

25 

setbpen 

= 

-348 

26 

writepixel 

= 

-324 

27 

readpixel 

= 

-318 

28 

delay 


-198 

29 

reetfill 

= 

-306 

30 

setmenustrip 

= 

-264 

31 

clearmenustrip 

= 

-54 

32 

getmsg 

= 

-372 

33 

move 


-240 

34 

draw 


-246 

35 

waittof 

= 

-30-240 

36 

setrgb4 

= 

-30-258 

37 

setpointer 

= 

-30-240 

38 

viewportadr 

= 

-30-270 

39 

supervisor 

SS 

-30 

40 

drawborder 

= 

-108 

41 

42 

printitext 

= 

-216 


muis- 


43 ;— extra adressen/waarden — 


44 execbase 

45 buffer 
4 6 len 

47 speed 

48 

49 

50 


= 4 

= $50000 

= $f 

= 25 


;— adressen voor parallel — 
poort, (uitlezen) — 

51 set — $bfe301 

52 lees = $bfel01 

53 PRA = $bfd000 

54 PRB = $bfel01 

55 DDRA = $bfd200 

56 DDRB = $bfe301 

57 

58 ;-- custom adressen — 

59 ;zie Hardware manuel of Intern 


60 audOlch 

61 audOlen 

62 audOper 

63 audOvol 

64 audOdat 

65 audllch 

66 audllen 

67 audlper 

68 audlvol 

69 audldat 


= $dffOaO 
= $dff 0a4 
= $dff0a6 
= $dff0a8 
= $dffOaa 
= $dff0b0 
= $dff 0b4 
= $dff0b6 
= $dff0b8 
= $dffOba 


70 

71 custom 

72 DMAcon = $dff096 

73 colorOO = $dffl80 

74 

75 eerst alle libraries openen -- 

76 start: 

77 intuition.library openen -- 

78 move.1 execbase,a6 

79 lea intname,al 

80 jsr openlib(a6) 

81 move.1 d0,intbase 

82 

83 /-- graphics.library openen — 

84 move.1 execbase,a6 

85 lea gfxname,al 

86 jsr openlib(a6) 

87 move.1 d0,gfxbase 

88 

89 ;-- dos.library openen -- 

90 move.1 execbase,a6 

91 lea dosname,al 

92 jsr openlib(a6) 

93 move.1 d0,dosbase 

94 


95 screen openen — 

96 move.1 intbase,a6 

97 lea screen_defs, a0 

98 jsr openscreen(a6) 

99 move.1 d0,screenhd 
100 

101 /-- window openen -- 

102 move.1 intbase,a6 

103 lea window_defs, a0 

104 jsr openwindow(a6) 

105 move.1 d0,windowhd 

106 

107 eigen rastport eruit -- 

108 vissen! -- 

109 move.1 windowhd,al 

110 move.1 50(al),al 

111 move.1 al,rastport 

112 

113 parallel poort zetten -- 

114 move.b #$00,set 

115 

116 menu strip zetten -- 

117 move.1 intbase,a6 

118 move.1 windowhd,a0 


119 lea project,al 

120 jsr setmenustrip(a6) 

121 

122 message balk tekenen -- 

123 lea bordertje,al 

124 move.w #0,d0 

125 move.w #0,dl 

126 bsr border 

127 

128 /-- message neerzetten -- 

129 lea text6,al 

130 move.1 #80,d0 

131 move.1 #468,dl 

132 bsr print 

133 /-- muis-pointer rotatie -- 

134 voorbereiden 

135 aktuele window zoeken-- 

136 + viewport zoeken 

137 move.1 IntBase,a0 

138 move.1 52(a0),AktWin 

139 move.1 IntBase,a6 

140 move.1 AktWin,a0 

141 jsr ViewPortAdr(a6) 

142 move.1 dO,AktVP 

143 

144 hier worden de kleuren -- 

145 voor pointer gezet 

146 move.1 AktVP,a0 

147 move.1 GfxBase,a6 

148 move.1 #17,d0 

149 move.1 #0,dl 

150 move.1 # 0, d2 

151 move.1 #0,d3 

152 /--kleur zetten -- 

153 jsr SetRGB4(a6) 

154 move.1 AktVP,a0 

155 move.1 #18,d0 

156 move.1 #13,dl 

157 move.1 #2,d2 

158 move.1 #2,d3 

159 jsr SetRGB4(a6) 

160 move.1 AktVP,a0 

161 move.1 #19,d0 

162 move.1 #15,dl 

163 move.1 #12,d2 

164 move.1 #12,d3 

165 jsr SetRGB4(a6) 

166 

167 hoofdloop, hier tast -- 

168 /-- het programma de menus 

169 /-- af of er wat is gekozen -- 

170 hoofdloop: 

171 move.1 IntBase,a6 

172 move.1 AktWin,a0 

173 lea.1 Image0,al 

174 /— pos. muispointer — 

175 move.1 #14,d0 

176 move.1 #16,dl 

177 move.1 #-7,d2 

178 move.1 #-7,d3 

179 /— nieuwe muispointer — 

ISO jsr SetPointer(a6) 

181 jsr Wacht 

182 move.1 IntBase,a6 

183 move.1 AktWin, a0 

184 lea.1 Imagel,al 

185 move.1 #14,d0 

186 move.1 #16,dl 

187 move.1 #-6,d2 

188 move.1 #-8,d3 

189 jsr SetPointer(a6) 

190 jsr Wacht 

191 move.1 IntBase,a6 

192 move.1 AktWin, a0 

193 lea.1 Image2,al 

194 move.1 #14,d0 

195 move.1 #16,dl 

196 move.1 #-5,d2 

197 move.1 #-7,d3 

198 jsr SetPointer (a6) 

199 jsr Wacht 

200 move.1 IntBase,a6 

201 move.1 AktWin,a0 

202 lea.1 Image3,al 

203 move.1 #14,d0 

204 move.1 #16,dl 

205 move.1 #-4,d2 

206 move.1 #-6,d3 

207 jsr SetPointer(a6) 

208 jsr Wacht 

209 move.1 IntBase,a6 

210 move.1 AktWin,a0 

211 lea.1 Image4,al 

212 move.1 #14,d0 

213 move.1 #16,dl 

214 move.1 #-5,d2 

215 move.1 #-5,d3 

216 jsr SetPointer(a6) 

217 jsr Wacht 

218 move.1 IntBase,a6 

219 move.1 AktWin,a0 

220 lea.1 Image5,al 

221 move.1 #14,d0 

222 move.1 #16,dl 

223 move.1 #-6,d2 

224 move.1 #-4,d3 

225 jsr SetPointer(a6) 

226 jsr Wacht 

227 move.1 IntBase,a6 

228 move.1 AktWin,a0 

229 lea.1 Image6,al 

230 move.1 #14,d0 

231 move.1 #16,dl 


232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 


move.1 #-7,d2 
move.1 #-5,d3 
jsr SetPointer(a6) 
jsr Wacht 
move.1 IntBase,a6 
move.1 AktWin,a0 
lea.1 Image7,al 
move.1 #14,d0 
move.1 #16,dl 
move.1 #-8,d2 
move.1 #-6,d3 
jsr SetPointer(a6) 
jsr Wacht 
lea text0,al 
move.1 #100,d0 

move.1 #480,dl 
bsr print 

move.1 execbase,a6 
move.1 windowhd,a0 
move.1 86(a0),a0 
jsr getmsg(a6) 
tst.1 d0 
beq hoofdloop 
move.1 d0,a0 
move.1 $14(a0),d6 
cmp.b #$100,d6 
bne hoofdloop 
move $18(a0),d7 
cmp.w #$ffff,d7 
beq hoofdloop 
cmp.w #$f820,d7 
beq xniks 
cmp.w #$f840,d7 
beq xsample 
cmp.w #$f801,d7 
beq xgraphl 
cmp.w #$f821,d7 
beq xgraph2 
cmp.w #$f841,d7 
beq xgraph3 
cmp.w #$f861,d7 
beq xgraph4 
cmp.w # $ f 8 0 0,d7 
bne hoofdloop 

;-- nu wordt alles afgesloten -- 
stop: 

/— menus weghalen — 
move.1 IntBase,a6 
move.1 windowhd,a0 
jsr clearmenustrip(a6) 

/-- window sluiten 
move.1 intbase,a6 
move.1 windowhd,a0 
jsr closewindow(a6) 

;— screen sluiten — 
move.1 intbase,a6 
move.1 screenhd,a0 
jsr closescreen(a6) 

;— intuition.library sluiten — 
move.1 execbase,a6 
move.1 intbase,al 
jsr closelibrary(a6) 

/-- graphics.library sluiten — 
move.1 execbase,a6 
move.1 gfxbase,al 
jsr closelibrary(a6) 

/— dos.library sluiten -- 
move.1 execbase,a6 
move.1 dosbase, al 
jsr closelibrary(a6) 

/-- terug naar CLI alsof er -- 
/— niks is gebeurt -- 
rts 

;— tekst afdrukken — 
print: 

move.1 intbase,a6 
move.1 rastport,a0 
jsr printitext(a6) 
rts 

/-- border (lijnen) tekenen -- 
border: 

move.1 intbase,a6 
move.1 rastport,a0 
jsr drawborder(a6) 
rts 

;-- wacht voor nieuwe -- 
/— muis pointer -- 
Wacht: 

move.1 DosBase,a6 
move.1 #2,dl 
jsr Delay(a6) 
move.1 GfxBase,a6 
jsr WaitTOF(a6) 
move.1 GfxBase,a6 
jsr WaitTOF(a6) 
rts 

/-- menu keuzen graphl — 

; -- punten zetten 

xgraphl; 

/-- pen zetten -- 
/-- en tekst neerzetten -- 
lea text2,al 
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345 move.1 #100,dO 

346 move.1 #480,dl 

347 bsr print 

348 

349 move.1 rastport,al 

350 move.1 gfxbase,a6 

351 move.1 #l,d0 

352 jsr setapen(a6) 

353 

354 waarde uitlezen van -- 

354 parallel poort en 

356 omzetten in y-coord.-- 

357 ;— daarna punt zetten 

358 xgraphlloopl: 

359 move.1 rastport,al 

360 move.1 gfxbase,a6 

361 move.1 tel0,d0 

362 move.b lees,d2 

363 move.w d2,dl 

364 and.w #%11111111,dl 

365 move.b dl,dl 

366 sub.b #5,dl 

367 jsr writepixel(a6) 

368 

369 ;— zijn we al aan het eind -- 

370 van het scherm ? 

371 add.1 #l,tel0 

372 cmp.1 #600,telO 

373 beq funny 

374 btst #6,$bfe001 

375 bne xgraphlloopl 

376 terug naar hoofdloop -- 

377 ;-- en tekst weghalen 

378 lea text0,al 

379 move.1 #100,d0 

380 move.1 #480,dl 

381 bsr print 

382 

383 bra hoofdloop 

384 

385 ;— graph2 

386 ;— deze trekt lijnen tussen twee -- 

387 binnengekomen punten (verikaal) — 

388 xgraph2: 

389 ;— pen kleur zeten -- 

390 en tekst neerzetten -- 

391 lea text3,al 

392 move.1 #100,d0 

393 move.1 #480,dl 

394 bsr print 

395 

396 move.1 rastport,al 

397 move.1 gfxbase,a6 

398 move.1 #l,d0 

399 jsr setapen(a6) 

400 

401 ;— cursor op goede plaats zeten -- 

402 links op het scherm -- 

403 move.1 gfxbase,a6 

404 move.1 rastport,al 

405 move.w #20,d0 

406 move.w #255,dl 

407 jsr move(a6) 

408 

409 cursur naar nieuwe pos. schuiven -- 

410 y-coord. constant opschuiven -- 

411 xgraph21oopl: 

412 move.1 gfxbase,a6 

413 move.1 rastport,al 

414 move.w #255,dl 

415 move.w tel4,d0 

416 jsr move(a6) 

417 

418 ;-- nieuwe coord. van -- 

419 ;-- parallel poort uitlezen -- 

420 ;-- om een lijn te trekken tussen -- 

421 oude y-coord. en nieuwe — 

422 ;-- de x-coord. blijft gelijk -- 

423 move.1 gfxbase,a6 

424 move.1 rastport,al 

425 move.b lees,dl 

426 ;-- masker erover heen 

427 and.w #$000000011111111,dl 

428 add.w #127,dl 

429 move.w dl,tel5 

430 move.w tel4,d0 

431 jsr draw(a6) 

432 

433 cursor naar nieuwe coord. -- 

434 schuiven (wordt constant door -- 

435 ;— getelt) - 

436 move.1 gfxbase,a6 

437 move.1 rastport,al 

438 move.w tel5,dl 

439 move.w tel4,d0 

440 jsr move(a6) 

441 

442 ;— muistoets? — 

443 btst #6,$bfe001 

444 beq hoofdloop 

445 

446 ;-- alle coord. bijwerken 

447 en vergelijken of het 

448 ;— scherm al moet worden 

449 ;-- schoongemaakt. 

450 ;— als tel4 wordt verhoogd — 

451 ;— gaat de grafiek sneller — 

452 600 gedeelt door tel4 

453 ;— moet wel een geheel 

454 opleveren!! 

455 add.w #5,tel4 /verhogen is versnellen 

456 cmp.w #600,tel4 

457 bne xgraph21oopl 


458 funny2: 

459 ;-- pen ontzichtbaar maken -- 

460 move.1 rastport,al 

461 move.1 gfxbase,a6 

462 move.1 #0,d0 

463 jsr setapen(aG) 

464 

465 ;-- vierkant over oude 

466 ;-- tekening heen 

467 move.1 gfxbase,a6 

468 move.1 rastport,al 

469 move.1 #3,d0 

470 move.1 #9, dl 

471 move.1 #620,d2 

472 move.1 #450,d3 

473 jsr rectfill(a6) 

474 

475 ;-- tel4 bijstellen -- 

476 move.w #20,tel4 

477 bra xgraph2 

478 

479 graph3, balken laten 

480 ;-- stuiteren op coord. van 

481 ;-- parallel poort 

482 xgraph3: 

483 ;-- nieuwe copperlist -- 

484 lea text4,al 

485 move.1 #100,d0 

486 move.1 #480,dl 

487 bsr print 

488 move.1 gfxbase,a0 

489 add.1 #$32,a0 

490 move.w #$0080,$dff096 

491 move.1 (a0),oude_copper 

492 move.1 #nieuwe copper,(a0) 

493 move.w #$8080, fdff 096 

494 move.1 #0,tel5 

495 

496 xgraph31oop2: 

497 parallel poort uitlezen -- 

498 move.b lees,tel5 

499 move.b tel5,dl 

500 

501 xgraph31oop3: 

502 sub.w #$64,copl 

503 sub.w #$64,cop2 

504 

505 ;-- balk omhoog tot ie 

506 de waarde tel5 

507 ;-- heeft bereikt (par.) -- 

508 move.1 dosbase, a6 

509 move.1 # 0,dl 

510 jsr delay(a6) 

511 add.b #l,tel5 

512 cmp.b #255,tel5 

513 bne xgraph31oop3 

514 

515 ;-- standaard waarde terug -- 

516 move.w #$e50f,copl 

517 move.w #$ef0f ,cop2 

518 

519 ;-- muistoets? -- 

520 btst #6,$bfe001 

521 bne xgraph3 

522 

523 ;-- tekst weghalen -- 

524 lea text0,al 

525 move.1 #100,d0 

526 move.1 #480,dl 

527 bsr print 

528 

529 ;— gewone copperlist terug -- 

530 xstop: 

531 move.1 gfxbase,a0 

532 add.1 #$32,a0 

533 move.w #$0080,$dff096 

534 move.1 oude_copper,(a0) 

535 move.w #$8080,$dff096 

536 

537 bra hoofdloop 

538 

539 ;-- graph4, scope scherm 

540 ;-- deze verbind lijnen met -- 

541 ;-- elkaar zodat er een 

542 ;-- scope scherm ontstaat 

543 xgraph4: 

544 ;-- penkleur zetten -- 

545 tekst neerzetten -- 

546 lea text5,al 

547 move.1 #100,d0 

548 move.1 #480,dl 

549 bsr print 

550 

551 move.1 rastport,al 

552 move.1 gfxbase,a6 

553 move.1 #l,d0 

554 jsr setapen(a6) 

555 

556 ;-- cursor op begin pos. -- 

557 move.1 gfxbase,a6 

558 move.1 rastport,al 

559 move.w #20,d0 

560 move.w #255,dl 

561 jsr move (a6) 

562 

563 xgraph41oopl: 

564 ;— parallel poort uitlezen -- 

565 ;— byte omzetten in word 

566 move.1 gfxbase, a6 

567 move.1 rastport,al 

568 move.b lees,dl 

569 and.w #%0000000011111111,dl 

570 add.w #127,dl 


571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 
683 


move.w dl,tel5 
move.w tel4,d0 

lijn trekken naar nieuwe coord. -- 
jsr draw(a 6) 

;— cursor opnieuw neerzetten — 
move.1 gfxbase,a6 
move.1 rastport,al 
move.w tel5,dl 
move.w tel4,d0 
jsr move(a6) 

muistoets? 
btst #6,$bfe001 
beq hoofdloop 

tel snelheid staat hier 
;— deze kan worden verhoogd 
;-- zodat het knipperen minder 
;— wordt. Maar de grafiek wordt -- 
;-- wel blokkeriger!!! 630/tel4 
;-- moet wel een geheel getal zijn- 
add.w #5,tel4 ;verhogen is versnelen 

cmp.w #630,tel4 
bne xgraph41oopl 

;-- scherm schoonmaken m.b.v. 

vierkant in achtergrond kleur-- 
funny4: 

;-- kleur zetten — 
move.1 rastport,al 
move.1 gfxbase,a6 
move.1 #0,d0 
jsr setapen(a6) 

;— vierkant — 
move.1 gfxbase,a6 
move.1 rastport,al 
move.1 #3,d0 
move.1 #9,dl 
move.1 #630,d2 
move.1 #450,d3 
jsr rectfill(a6) 

;-- tel4 bijwèrken en terug -- 
move.w #20,tel4 
bra xgraph4 
bra hoofdloop 


hier gebeurt niets — 
;— hier kan men zelf 

iets aan toevoegen — 
xniks: 

bra hoofdloop 


;-- geluid weergeven 
;-- de bij dit artikel horende -- 
;-- sampler is alleen bedoeld 
;-- als spectrum analyser. 
het geluid dat je hier 
hoord is waardeloos en 
;-- alleen bruikbaar bij betere-- 
;— samplers (maar wel handig) 
xsample: 

;— tekst neerzetten -- 
lea textl,al 
move.1 #100,d0 
move.1 #480,dl 
bsr print 
move.1 #buffer,a0 
move.1 #len,d0 


xsampleclear: 
move.b #0,(a0)+ 
dbra d0,xsampleclear 

;-- processor in supervisor mode -- 
move.1 execbase,a6 
lea super,a5 
jsr supervisor(a6) 


super: 

addq.1 #8,a7 
move #$2700,sr 
;- parallel poort zetten -- 
move.b #%00000000,DDRB 
initialiseren -- 
move.b DDRA,d0 
andi.b #%11111010,d0 
ori.b #%00000100,d0 
move.b d0,DDRA 

;-- audio kanaal data 0 
move.1 #buffer,audOlch 
;-- audio kanaal data 1 
move.1 #buffer,audllch 
;— volume kanaal 0 voluit — 
move.1 #64,aud0vol 

volume kanaal 1 voluit — 
move.1 #64,audlvol 
;— rate kanaal 0 zetten 
move.w #speed,audOper 
rate kanaal 1 zetten 
move.w #speed,audlper 
;-- lengte data kanaal 0 
move.w #len/2,audOlen 
;— lengte data kanaal 1 — 

move.w #len/2,audllen 
;— audio dma aanzetten 
move #$8003,dmacon 

xsampleloop: 
lea buffer,a0 
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684 move.w #len,d3 

685 

686 mus: 

687 ori.b #%00000100,PRA 

688 andi.b #%11111011,PRA 

689 

690 ooievaar: 

691 andi.b #%00000100,PRA 

692 beq.s ooievaar 

693 clr.w dl 

694 move.b PRB,dl 

695 eori.b #128,dl 

696 move.b dl, (a0) + 

697 

698 geeft aan dat er data binnenkomt -- 

699 kleiner dan 200 dan rood 

700 cmp.b #200,dl 

701 bpl poesje ;kleiner dan 200 dan rood 

702 move.w #$0f00,colorOO 

703 

704 poesje: 

705 dbra d3,mus 

706 

707 btst #6,$bfe001 

708 bne xsampleloop 

709 dma uit 

710 move.w #$0003,DMAcon 

711 processor in user mode -- 

712 move #0,sr 

713 tekst weghalen -- 

714 lea text0,al 

715 move.1 #100, d0 

716 move.1 #480,dl 

717 bsr print 

718 

719 bra hoofdloop 

720 

721 funny: 

722 move.1 rastport,al 

723 move.1 gfxbase,a6 

724 move.1 #0,d0 

725 jsr setapen(a6) 

726 

727 move.1 gfxbase,a6 

728 move.1 rastport,al 

729 move.1 #l,d0 

730 move.1 #7,dl 

731 move.1 #620,d2 

732 move.1 #290,d3 

733 jsr rectfill(a6) 

734 

735 move.1 #20,tel0 

736 bra xgraphl 

737 

738 even 

739 oude_copper: 

740 dc.1 0 

741 

742 copperlist voor graph3 -- 

743 even 

744 nieuwe copper: 

745 dc.w ‘SOISO, $0fff 

746 copl: 

747 dc.w $e50f,$fffe 

748 dc.w $0180,$0000 

749 cop2: 

750 dc.w $efOf,$fffe 

751 dc.w $0180,$0fff 

752 dc.w $ef0f ,$fffe 

753 dc.w $ffff,$fffe 

754 

755 screen struktuur -- 

756 even 

757 screen_defs: 

758 dc.w 0,0,640,512,3 

759 dc.b 0,1 

760 dc.w $8004,15 

761 dc.1 0,title,0,0 

762 

763 titel: 

764 dc.b 'Spektrum analyser (c) Hans van der 
Pol' , 0 

765 

766 window struktuur -- 

767 even 

768 window_defs: 

769 dc.w 0,9,640,495 

770 dc.b 0,2 

771 dc.1 

$100,%00000000000001000000000000,0,0,windown 
aam 

772 screenhd: dc.1 0 

773 dc.1 0 

774 dc.w 150,50,640,245,15 

775 

776 even 

777 windownaam: 

778 dc.b 'Danny Brandt ontwikkelde de hard¬ 
ware' , 0 

779 

780 menu strukturen 

781 even 

782 Project: 

783 dc.1 command 

784 dc.w 20,0,80,10,1 

785 dc.1 menutextl 

786 dc.1 quit 

787 dc.w 0,0,0,0 

788 

789 even 

790 command: 

791 dc.1 0 

792 dc.w 101,30,75,10,1 


793 dc.1 menutext2 

794 dc.1 graphl 

795 dc.w 0,0,0,0 

796 

797 onder menu strukturen -- 

798 even 

799 quit: 

800 dc.1 clear 

801 dc.w 0,0,124,10,%10011010 

802 dc.1 0 

803 dc.1 quittext 

804 dc.1 0 

805 dc.b 0 

806 even 

807 dc.1 0,0 

808 

809 even 

810 clear: 

811 dc.1 sample 

812 dc.w 0,10,124,10,%10011010 

813 dc.1 0 

814 dc.1 cleartext 

815 dc.1 0 

816 dc.b 0 

817 even 

818 dc.1 0,0 

819 

820 even 

821 sample: 

822 dc.1 0 

823 dc.w 0,20,124,10,%10011010 

824 dc.1 0 

825 dc.1 sampletext 

826 dc.1 0 

827 dc.b 0 

828 even 

829 dc.1 0,0 

830 

831 even 

832 graphl: 

833 dc.1 graph2 

834 dc.w 0,0,124,10,%10011010 

835 dc.1 0 

836 dc.1 graphltext 

837 dc.1 0 

838 dc.b 0 

839 even 

840 dc.1 0,0 

841 

842 even 

843 graph2: 

844 dc.1 graph3 

845 dc.w 0,10,124,10,%10011010 

846 dc.1 0 

847 dc.1 graph2text 

848 dc.1 0 

849 dc.b 0 

850 even 

851 dc.1 0,0 

852 

853 even 

854 graph3: 

855 dc.1 graph4 

856 dc.w 0,20,124,10,%10011010 

857 dc.1 0 

858 dc.1 graph3text 

859 dc.1 0 

860 dc.b 0 

861 even 

862 dc.1 0,0 

863 

864 even 

865 

866 graph4: 

867 dc.1 0 

868 dc.w 0,30,124,10,%10011010 

869 dc.1 0 

870 dc.1 graph4text 

871 dc.1 0 

872 dc.b 0 

873 even 

874 dc.1 0,0 

875 

876 ;— tekst strukturen -- 

877 even 

878 quittext: 

879 dc.b 0,1,0 

880 even 

881 dc.w 3,1 

882 dc.1 0 

883 dc.1 quittext2 

884 dc.1 0 

885 

886 even 

887 cleartext: 

888 dc.b 0,1,0 

889 even 

890 dc. w 3,1 

891 dc.1 0 

892 dc.1 cleartext2 

893 dc.1 0 

894 

895 even 

896 sampletext: 

897 dc.b 0,1,0 

898 even 

899 dc.w 3,1 

900 dc.1 0 

901 dc.1 sampletext2 

902 dc.1 0 

903 

904 even 

905 graphltext: 


906 dc.b 0,1,0 

907 even 

908 dc.w 3,1 

909 dc.1 0 

910 dc.1 graphltext2 

911 dc.1 0 

912 

913 even 

914 graph2text: 

915 dc.b 0,1,0 

916 even 

917 dc.w 3,1 

918 dc.1 0 

919 dc.1 graph2text2 

920 dc.1 0 

921 

922 even 

923 graph3text: 

924 dc.b 0,1,0 

925 even 

926 dc.w 3,1 

927 dc.1 0 

928 dc.1 graph3text2 

929 dc.1 0 

930 

931 even 

932 graph4text: 

933 dc.b 0,1,0 

934 even 

935 dc.w 3,1 

936 dc.1 0 

937 dc.1 graph4text2 

938 dc.1 0 

939 

940 tekst 

941 even 

942 menutextl: 

943 dc.b 'Project',0 

944 

945 menutext2: 

946 dc.b 'Graphic',0 

947 

948 quittext2: 

949 dc.b ' Quit',0 

950 

951 cleartext2: 

952 dc.b ' niks',0 

953 

954 sampletext2: 

955 dc.b ' Monitor',0 

956 

957 graphltext2: 

958 dc.b ' Graph 1',0 

959 

960 graph2text2: 

961 dc.b ' Graph 2',0 

962 

963 graph3text2: 

964 dc.b ' Graph 3',0 

965 

966 graph4text2: 

967 dc.b ' Graph 4',0 

968 

969 

970 data -- 

971 even 

972 windowhd: 

973 dc.1 0 

974 

975 intbase: 

976 dc.1 0 

977 

978 gfxbase: 

979 dc.1 0 

980 

981 dosbase: 

982 dc.1 0 

983 

984 rastport: 

985 dc.1 0 

986 

987 telO: 

988 dc.1 20 

989 

990 teil: 

991 dc.1 125 

992 

993 tel3: 

994 dc.1 0 

995 

996 tel4: 

997 dc.1 20 

998 

999 tel5: 

1000 dc.1 0 

1001 intname: 

1002 dc.b 'intuition.library',0 

1003 

1004 gfxname: 

1005 dc.b 'graphic.library',0 

1006 

1007 dosname: 

1008 dc.b 'dos.library',0 

1009 

1010 even 

1011 textO: 

1012 dc.b 0,1 

1013 dc.b 4 

1014 even 

1015 dc.w 0,0 

1016 dc.1 4 

1017 dc.1 txtO 

1018 dc.1 0 
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Amigo 


Amigo 


1019 

1020 txtO: dc.b 

' ,0 

1021 

1022 even 

1023 textl: 

1024 dc.b 1,0 

1025 dc.b 0 

1026 even 

1027 dc.w 0,0 

1028 dc.1 0 

1029 dc.1 txtl 

1030 dc.1 0 

1031 

1032 txtl: dc.b 'monitoring' , 0 

1033 

1034 even 

1035 text2: 

1036 dc.b 1,0 

1037 dc.b 0 

1038 even 

103 9 dc . w 0,0 

1040 dc.1 0 

1041 dc.1 txt2 

1042 dc.1 0 

1043 

1044 txt2: dc.b 'writing pixels',0 

1045 

1046 even 

1047 text3: 

1048 dc.b 1,0 

1049 dc.b 0 

1050 even 

1051 dc.w 0,0 

1052 dc.1 0 

1053 dc.1 txt3 

1054 dc.1 0 

1055 

1056 txt3: dc.b 'Graphic analyser activated',0 

1057 

1058 even 

1059 text4: 

1060 dc.b 1,0 

1061 dc.b 0 

1062 even 

1063 dc.w 0,0 

1064 dc.1 0 

1065 dc.1 txt4 

1066 dc.1 0 

1067 

1068 txt4: dc.b 'New copperlist activated',0 

1069 

1070 even 

1071 text5: 

1072 dc.b 1, 0 

1073 dc.b 0 

1074 even 

1075 dc.w 0,0 

1076 dc.1 0 

1077 dc.1 text5 

1078 dc.1 0 

1079 

1080 txt5: dc.b 'Scope activated',0 

1081 

1082 even 

1083 text6: 

1084 dc.b 1,0 

1085 dc.b 0 

1086 even 

1087 dc.w 0,0 

1088 dc.1 0 


1089 dc.1 txt6 

1090 dc.1 0 

1091 

1092 txt6: dc.b 'message:',0 

1093 

1094 even 

1095 bordertje: 

1096 dc.w 0,0 

1097 dc.b 3,0,0 

1098 dc.b 5 

1099 dc.1 koordl 

1100 dc.1 0 

1101 

1102 koordl: 


1103 dc.w 80,477 

1104 dc.w 500,477 

1105 dc.w 500,490 

1106 dc.w 80,490 

1107 dc.w 80,477 

1108 

1109 even 

1110 AktWin: blk.1 1,0 

1111 AktVP: blk.1 1,0 

1112 

1113 even 

1114 Image0: 


1115 dc.1 0 

1116 dc.w %0000000000000000, 

1117 dc.w %0111111000000000, 

1118 dc.w %0111111100000000, 

1119 dc.w %0100001100000000, 

1120 dc.w %0100011000000000, 

1121 dc.w %0100001100000000, 

1122 dc.w %0100100110000000, 

1123 dc.w %0011010011000000, 

1124 dc.w %0000001001100000, 

1125 dc.w %0000000100110000, 

1126 dc.w %0000000010100000, 

1127 dc.w %0000000001000000, 

1128 dc.w %0000000000000000, 

1129 dc.w %0000000000000000, 

1130 dc.1 0 

1131 

1132 even 

1133 Image1: 

1134 dc.1 0 

1135 dc.w 

1136 dc.w 

1137 dc.w 

1138 dc.w 

1139 dc.w 

1140 dc.w 

1141 dc.w 

1142 dc.w 

1143 dc.w 

1144 dc.w 

1145 dc.w 

1146 dc.w 

1147 dc.w 

1148 dc.w 

1149 dc.1 


%0000000000000000 

%0000000000000000 

%0011111000000000 

%0011111000000000 

%0011110000000000 

%0011111000000000 

%0011011100000000 

%0000001110000000 

%0000000111000000 

%0000000011100000 

%0000000001000000 

%0000000000000000 

%0000000000000000 

%0000000000000000 


%0000001100000000 

%0000010110000000 

%0000100011000000 

%0001000001100000 

%0001000111100000 

%0000110111000000 

%0000010110000000 

%0000010110000000 

%0000010110000000 

%0000010110000000 

%0000010110000000 

%0000010110000000 

%0000011110000000 

%0000000000000000 

o 


%0000000000000000 

%0000001100000000 

%0000011110000000 

%0000111111000000 

%0000111111000000 

%0000001100000000 

%0000001100000000 

%0000001100000000 

%0000001100000000 

%0000001100000000 

%0000001100000000 

%0000001100000000 

%0000000000000000 

%0000000000000000 


1150 

1151 even 

1152 Image2: 

1153 dc.1 0 

1154 dc.w %0000000000000000,%0000000000000000 

1155 dc.w %0000000111111000,%0000000000000000 

1156 dc.w %0000001000011000,%0000000111110000 

1157 dc.w %0000001000011000,%0000000111110000 

1158 dc.w %0000000100011000,%0000000011110000 

1159 dc.w %0000001001011000,%0000000111110000 



Een zelfgebouwde sampler biedt de mogelijkheid om van elke willekeurige 

geluidsbron geluiden te digitaliseren. 


1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 
1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 


dc.w %0000010011111000, 
dc.w %0000100110110000, 
dc.w %0001001100000000, 
dc.w %0010011000000000, 
dc.w %0001110000000000, 
dc.w %0000100000000000, 
dc.w %0000000000000000, 
dc.w %0000000000000000, 
dc.1 0 


%0000001110110000 

%0000011100000000 

%0000111000000000 

%0001110000000000 

%0000100000000000 

%0000000000000000 

%0000000000000000 

%0000000000000000 


even 
Image3: 
dc.1 0 
dc.w 
dc.w 
dc.w 
dc. w 
dc.w 
dc.w 
dc.w 
dc. w 
dc.w 
dc.w 
dc. w 
dc.w 
dc. w 
dc. w 
dc.1 


%0000000000000000 

%0000000000000000 

%0000000000000000 

%0000000001100000 

%0000000010010000 

%0111111110001000 

%0100000000000100 

%0111111111001100 

%0111111111011000 

%0000000011110000 

%0000000001100000 

%0000000000000000 

%0000000000000000 

%0000000000000000 

o 


%0000000000000000 

%0000000000000000 

%0000000000000000 

%0000000000000000 

%0000000001100000 

%0000000001110000 

%0011111111111000 

%0011111111111000 

%0000000001110000 

%0000000001100000 

%0000000000000000 

%0000000000000000 

%0000000000000000 

%0000000000000000 


even 
Image4: 
dc.1 0 
dc. w 
dc.w 
dc. w 
dc.w 
dc.w 
dc.w 
dc. w 
dc.w 
dc. w 
dc. w 
dc.w 
dc. w 
dc.w 
dc. w 
dc. 1 


%0000000000000000 

%0000000000000000 

%0000100000000000 

%0001010000000000 

%0011001000000000 

%0001100100000000 

%0000110010110000 

%0000011001001000 

%0000001100001000 

%0000000110001000 

%0000001100001000 

%0000001111111000 

%0000000111111000 

%0000000000000000 

o 


%0000000000000000 

%0000000000000000 

%0000000000000000 

%0000100000000000 

%0001110000000000 

%0000111000000000 

%0000011100000000 

%0000001110110000 

%0000000111110000 

%0000000011110000 

%0000000111110000 

%0000000111110000 

%0000000000000000 

%0000000000000000 


even 
Image5: 
dc.1 0 
dc. w 
dc. w 
dc.w 
dc. w 
dc.w 
dc.w 
dc.w 
dc. w 
dc.w 
dc. w 
dc. w 
dc. w 
dc.w 
dc. w 
dc.1 


%0000000000000000 

%0000011110000000 

%0000011010000000 

%0000011010000000 

%0000011010000000 

%0000011010000000 

%0000011010000000 

%0000011010000000 

%0000111011000000 

%0001111000100000 

%0001100000100000 

%0000110001000000 

%0000011010000000 

%0000001100000000 

o 


%0000000000000000 

%0000000000000000 

%0000001100000000 

%0000001100000000 

%0000001100000000 

%0000001100000000 

%0000001100000000 

%0000001100000000 

%0000001100000000 

%0000111111000000 

%0000111111000000 

%0000011110000000 

%0000001100000000 

%0000000000000000 


even 
Image6: 
dc.1 0 

dc.w %0000000000000000 
dc.w %0000000000000000 
dc.w %0000000001000000 
dc.w %0000000011100000 
dc.w %0000000110010000 
dc.w %0000001100100000 
dc.w %0011011001000000 
dc.w %0111110010000000 
dc.w %0110100100000000 
dc.w %0110001000000000 
dc.w %0110000100000000 
dc.w %0110000100000000 
dc.w %0111111000000000 
dc.w %0000000000000000 
dc.1 0 

even 
Image7: 
dc.1 0 
dc. w 
dc. w 
dc. w 
dc. w 
dc. w 
dc. w 
dc. w 
dc. w 
dc. w 
dc. w 
dc. w 
dc. w 
dc. w 
dc. w 
dc. 1 


%0000000000000000 

%0000000000000000 

%0000000000000000 

%0000000001000000 

%0000000011100000 

%0000000111000000 

%0000001110000000 

%0011011100000000 

%0011111000000000 

%0011110000000000 

%0011111000000000 

%0011111000000000 

%0000000000000000 

%0000000000000000 


%0000000000000000, 

%0000000000000000 

%0000000000000000 

%0001100000000000 

%0011110000000000 

%0110111111111000 

%1100111111111000 

%1000000000001000 

%0100011111111000 

%0010010000000000 

%0001100000000000 

%0000000000000000 

%0000000000000000 

%0000000000000000 

o 


%0000000000000000 

%0000000000000000 

%0000000000000000 

%0000000000000000 

%0001100000000000 

%0011100000000000 

%0111111111110000 

%0111111111110000 

%0011100000000000 

%0001100000000000 

%0000000000000000 

%0000000000000000 

%0000000000000000 

%0000000000000000 


Einde listing Spectrum Analyzer 
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Form 


Form is in december 1988/januari 1989 geschreven 
door Swiddy de Louw. het programma is vooral be¬ 
doeld voor labels voor 3.5" discs, maar door de 
hoogte en de breedte van het etiket te veranderen 
kun je het ook voor 5.25" of andere groottes gebrui¬ 
ken. 

Deze listing moet je precies zo over tikken als 
dat hij hier staat behalve als je [RETURN] tegen 
komt dan moet je op de Returntoets drukken. 


Handleiding bij: Form 


- Opstarten van Form 

Vanuit de CLI typ je “RUN AmigaBASIC FORM” in, 
Vanuit AmigaBASIC typje “RUN FORM” in en Vanuit 
de WorkBench kun je dubbelklikken op de Form- 
icon.Eerst wordt in het programmaatje Form meer 
geheugen gereserveerd (45Kb)waarna het echte 
programma wordt geladen, (dit moet FORM.2 heten) 

- Openen van een bestand 

Om te kunnen werken met Form moet er altijd Eerst 
een bestand worden geopend.Om dit te doen moet 
je in de pull-down MENU’S “Open bestand” kiezen. 
Er zal nu worden gevraagd Om een bestand te Ope¬ 
nen, je kunt met de muis het gewenstebestand kie¬ 
zen. Als je een nieuw bestand wilt Openen moet je 
de naam invoerenDOOR te klikken op het OPEN 
vlak naast de tekst “File”0! het bestand hier moet 
altijd een OlPrefs-bestand zijn.(Form voegt er anders 
zelf OlPrefs aan toe)met ACCEPT ga je verder en 
bevestig je de gekozen naam, met CANCEL ga je 
weerterug naar het basismenu. 
er zal nu Eerst worden gekeken of het gekozen be¬ 
stand al bestaat, zo ja danwordt er gevraagd of er 
Als dit nodig is overheen mag worden geschre¬ 
ven.Hiermee kun je voorkomen dat je het OlPrefs- 
bestand per ongeluk kwijt raakt.Als alles goed is 
kom je dan in het Hoofdmenu terecht. 

- LAY-OUT veranderen 

nu krijgen we wederom een MENU waarbij we kun¬ 
nen kiezen uit “Preferences” en"Opbouw"OI in de 
preferences kunnen we instellingen zoals breedte en 
hoogtevan het etiket veranderen, met gegevensfile 
wordt het bestand bedoeld waarinalle programma’s 
staan met bijbehorende gegevens zoals soort pro¬ 
gramma enkleur. met de opbouwfile wordt het be¬ 
stand bedoeld waarin de tekst van hetlabel staat, dit 
kun je veranderen via de keuze OPBOUW. 

BIJ de keuze opbouw moet je regel voor regel ver¬ 
anderen/toevoegen. het is niet mogelijk Om even te¬ 
rug te gaan naar de eerste regel, per regel is het 
mogelijk Om de stijl (Condensed, Doublé WIDTH, 
etc.), het lettertype,onderlijnen, vet, cursief in te stel¬ 
len. DOOR [NAAM], [CATEGORIE] of [NUMMER]toe 
te voegen zal er op die plaats de naam van het pro¬ 
gramma, het soortprogramma of het NUMMER ko¬ 
men te staan.met “SAVE OPBOUW” wordt de tekst 
tot en met de huidige regel op disk gezet,met “OK” 
ga je terug naar het LAY-OUT menu. de volgende 
keer dat je “OPBOUW’kiest zullen echter de wijzi¬ 
gingen weer worden vergeten. OK is dus zeer tijde¬ 


lijk. met “CANCEL” worden alle wijzigingen direkt 
vergeten. 

- PRINT-OUT (Uitvoer printer of scherm) 

in het MENU wat nu op het beeldscherm komt, kun 
je kiezen uit printer,beeldscherm, printer verkort en 
hoofdmenu. Kies je beeldscherm dan wordt het dis- 
kette-bestand getoond. Als je printer verkort kiest, 
dan het diskette-bestand op papier (A4, geen etiket¬ 
ten!) worden afgedrukt.met de keuze printer worden 
de etiketten gedrukt. Eerst wordt gevraagd of de 
printer gereed is, waarna er een MENU zal verschij¬ 
nen waarmee je het begin en eind kunt defenieren. 
Als je alle labels wilt hebben dan kun je de stan¬ 
daard instelling nemen (1 en 999), anders moet je 
dit zelf even wijzigen.met de keuze “Begin met prin¬ 
ten” zal de printer de etiketten printen. 

- pull-down MENU’S 

in de tweede serie PD-MENU’s kunnen we kiezen 
uit “Informatie”, “Kleur-instellingen wijzigen”, “Over¬ 
schrijven (niet) toegestaan” en “(geen) Oünfobestan- 
den creeren”. “Informatie” en “Kleurinstellingen wijzi¬ 
gen” behoeven geen nadere uitleg, met de keuze 
“Overschrijven toegestaan” kun je zorgendat het 
OlPrefs-bestand wel of niet overgeschreven mag 
worden en met “.Infobestanden creeren” kun je er¬ 
voor zorgen dat als je bepaalde instellingen(LAY- 
OUT of opbouw) saved, dat er wel of geen Olinfo 
bestand wordtgecreeerd. 

- Hoe zit de gegevensfile in elkaar „ 

dit bestand zul je zelf via een ASCII-Editor moeten 
ontwerpen. Een voorbeeld: 
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LOCATE 14,9:display "met kleurenprinters. 

Het programma is icoongestuurd, dus" 

[RETURN] 

LOCATE 16,9:display "makkelijk te 
gebruiken." [RETURN] 

LOCATE 20,13:display "De 
programmeur.":style 0 [RETURN] 

12: antwoord je=0 :ON MENU GOSUB men:MENU ON 
[RETURN] 

11: [RETURN] 

IF antwoord je=0 THEN 11 [RETURN] 

IF antwoordje=2 THEN RUN [RETURN] 

MENU 1,0,0:ON MENU GOSUB 0 [RETURN] 
body$(3)="":yes$=" Ja ":no$=" Nee 
" :body$ (1) = ,,M :body$ (2) = M Weet u dat zeker 
??" [RETURN] 

request 250,70,3 [RETURN] 

IF res&=0 THEN MENU 1,0,1:GOTO 12 [RETURN] 
SYSTEM [RETURN] 
men: [RETURN] 

IF MENU(1)=2 THEN antwoordje=l:RETURN 
[RETURN] 

dir 50,35,"Bestand openen. 

(Prefs) ", "DF0 : FORM/Bestanden" , "VD0 :" 

[RETURN] 

IF dirchoice=7 THEN RETURN [RETURN] 

IF RIGHT$ (program$, 6) O" .Prefs" THEN 
file$=file$+".Prefs":program$=program$+".Pre 
fs" [RETURN] 

er&=Lock&(SADD(program$),-2):existing=er& 
[RETURN] 

CALL Unlock(er&):eroverheen=l [RETURN] 

IF existing>0 THEN [RETURN] 

body$(1)=" "+UCASE$(file$):body$(2)=" 

bestaat al, kan er zo nodig" [RETURN] 

body$(3)=" overheen geschreven 

worden?":yes$=" Ja ":no$=" Nee " [RETURN] 

st$= M label":request 290,75,3 [RETURN] 

eroverheen=res& [RETURN] 

END IF [RETURN] 

IF eroverheen=0 THEN over$="niet " ELSE 
over$="" [RETURN] 

IF existing>0 THEN [RETURN] 

OPEN program$ FOR INPUT AS #1 [RETURN] 

LINE INPUT#1,a$:nlqofdraft%=VAL(a$) 

[RETURN] 

LINE INPUT#1,a$:space%=VAL(a$) [RETURN] 

LINE INPUT#1,a$:breedte%=VAL(a$) [RETURN] 
LINE INPUT#1,a$:hoogte%=VAL(a$) [RETURN] 

LINE INPUT#1,a$:lmarge%=VAL(a$) [RETURN] 


■' «sas v - 
iplp§»p 


chreven door Swiddy de Louw 


' FORM , 
[RETURN] 
[RETURN] 




' Als u geen VD0 : heeft op uw diskette, 
vervang dan [RETURN] 

' overal in het programma VD0 : door RAM: 
of DF2:, etc. [RETURN] 

[RETURN] 

' FORM gebruikt het gehele scherm(PAL), 
als uw BASIC niet standaard [RETURN] 

' opstart met een PAL-Scherm voeg dan aan 
het begin een WINDOW-Statement toe. 

[RETURN] 

[RETURN] 

LIBRARY "intuition.library" [RETURN] 

LIBRARY "graphics.library" [RETURN] 

LIBRARY "exec.library" [RETURN] 

LIBRARY "dos.library" [RETURN] 

DECLARE FUNCTION Asksoftstyle& LIBRARY 
[RETURN] 

DECLARE FUNCTION Setsoftstyle& LIBRARY 
[RETURN] 

DECLARE FUNCTION ExamineS LIBRARY [RETURN] 
DECLARE FUNCTION ExnextS LIBRARY [RETURN] 
DECLARE FUNCTION Lock& LIBRARY [RETURN] 
DECLARE FUNCTION AllocmemS LIBRARY [RETURN] 
DECLARE FUNCTION Move& LIBRARY [RETURN] 
DECLARE FUNCTION SetWindowTitles& LIBRARY 
[RETURN] 

DECLARE FUNCTION autorequest& LIBRARY 
[RETURN] 

DECLARE FUNCTION AllocRememberS LIBRARY 
[RETURN] 

DIM SHARED 

body$(4),dirname$(200),dirblock%(6766),ident 
(4,3),doublé(4,3) [RETURN] 
maxidir%=2 0 0:taitel$="FORM, geschreven 
door Swiddy de Louw." [RETURN] 
a=l:ident(1,1)=.135:ident(1,2)=.295:ident(1, 
3)=.6 [RETURN] 

ident(2,l)=a:ident(2,2)=a:ident(2,3)=a:edl%= 
999:stl%=l [RETURN] 

ident(3,1)=0:ident(3,2)=0:ident(3,3)=0 
[RETURN] 

ident(4,1)=a:ident(4,2)=.5:ident(4,3)=0 
[RETURN] 

PALETTE 0,ident(1,1),ident(1,2),ident(1,3) 
[RETURN] 

PALETTE 1,ident(2,1),ident(2,2),ident(2,3) 
[RETURN] 

PALETTE 2,ident(3,1),ident(3,2),ident(3,3) 
[RETURN] 

PALETTE 3,ident(4,1),ident(4,2),ident(4,3) 
[RETURN] 

FOR f=l TO 4:FOR g=l TO 3 [RETURN] 
doublé(f,g)=ident(f,g) [RETURN] 

NEXT g:NEXT f [RETURN] 
titel taitel$,"FORM" [RETURN] 

MENU 1,0,1,"Bestand":FOR f=2 TO 9:MENU 
f,0,0,"":NEXT [RETURN] 

MENU 1,1,1,"Open bestand":MENU 
1,2,1,"Verlaat FORM" [RETURN] 

CLS:style 6 [RETURN] 

LOCATE 10, 9:display "FORM is een programma 
waarmee labels voor 3.5"+CHR$(34)+" 
diskettes" [RETURN] 

LOCATE 12, 9 .-display "kunnen worden gedrukt 
en waarbij ook rekening wordt gehouden" 
[RETURN] 
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create2 7:create6 3:createl0 4:createll 
l,4:create8 8:create 11 [RETURN] 
masterloep: CLS:titel taitel$,"FORM" 
[RETURN] 

MENU ON:define2 1,150,76,260,14,"Verander 

de lay-out.",2,1,1 [RETURN] 

define2 2,150,92,260,14,"Uitvoer naar 

printer of scherm.", 2,1,1 [RETURN] 

define2 3,150,108,260,14,"Naar het 

basismenu.", 3, 1, 2 [RETURN] 

define6 1,50,6,200,"RGB 1",0,1,0,0,2,1,1 

[RETURN] 

defineö 2,50,18,200,"RGB 2",0,1,0,0,2,1,1 
[RETURN] 

define6 3,50,30,200,"RGB 3",0,1,0,0,2,1,1 
[RETURN] 

show2 3:style 2:texting 220,66,"FORM 
Hoofdmenu." [RETURN] 

style 6:texting 30,20,"Lay-out bestand: 
style 2:display 

program$: choicemade=0 :style 0 [RETURN] 
WHILE choicemade=0 [RETURN] 

WHILE MOUSE(0)>=0:WEND [RETURN] 
control2 3 [RETURN] 

WEND [RETURN] 

IF choicemade=3 THEN [RETURN] 

bodv$(1)=" WAARSCHUWING: Alle huidiae" 


PALETTE 

klid-1,variaS(1),varia6(2),variaë(3) 
[RETURN] 

x=MOUSE(1):y=MOUSE(2) [RETURN] 

IF x>269 AND x<311 AND y>5 AND y<22 THEN 
ok=l [RETURN] 

IF x>269 AND x<311 AND y>25 AND y<41 THEN 
ok=2 [RETURN] 

IF x>49 AND x<311 AND y>42 AND y<50 THEN 
[RETURN] 

f=klid:IF x<113 THEN klid=l [RETURN] 

IF x>112 AND x<178 THEN klid=2 [RETURN] 

IF x>177 AND x<243 THEN klid=3 [RETURN] 

IF x>242 THEN klid=4 [RETURN] 

IF fOklid THEN [RETURN] 
ident(f,l)=varia6(1) [RETURN] 
ident(f,2)=varia6(2) [RETURN] 
ident(f,3)=varia6(3) [RETURN] 
varia6(1)=ident(klid,1) [RETURN] 
varia6(2)=ident(klid,2) [RETURN] 
varia6(3)=ident(klid,3) [RETURN] 
show6 3: PALETTE 

klid-1,varia6(1),varia6(2),varia6(3) 
[RETURN] 

END IF [RETURN] 

END IF [RETURN] 

FOR g=i TO 400:NEXT [RETURN] 

WEND [RETURN] 

IF ok=2 THEN [RETURN] 

FOR f=l TO 4:FOR g=l TO 3 [RETURN] 
ident(f,g)=double(f,g) [RETURN] 

NEXT g:NEXT f [RETURN] 

PALETTE 0,ident(1,1),ident(1,2),ident(1,3) 
[RETURN] 

PALETTE 1,ident(2,1),ident(2,2),ident(2,3) 
[RETURN] 

PALETTE 2,ident(3,1),ident(3,2),ident(3, 3) 
[RETURN] 

PALETTE 3,ident(4,1),ident(4,2),ident(4,3) 
[RETURN] 

ELSE [RETURN] 

ident(klid,l)=varia6(1) [RETURN] 
ident(klid,2)=varia6(2) [RETURN] 
ident(klid,3)=varia6(3) [RETURN] 

FOR f=l TO 4:FOR g=l TO 3 [RETURN] 
doublé(f,g)=ident(f,g) [RETURN] 






. 

. 




body$(2)=" gegevens zullen worden" [RETURN] 
body$(3)=" gewist !!":no$=" Cancel 
":yes$=" Ok " [RETURN] 
request 266,75,3 [RETURN] 

IF res&=l THEN MENU 1,0,1:MENU 
2,0,0:antwoordje=2:RETURN [RETURN] 

END IF [RETURN] 

ON choicemade GOSUB verander,uitvoer 
[RETURN] 

GOTO masterloep [RETURN] 

RETURN [RETURN] 
afhandel2: [RETURN] 

IF MENU(1)=1 AND MENU(0)=2 THEN [RETURN] 
no$=" Continue ":yes$=no$:body$(1)=" FORM 
is in december 1988" [RETURN] 
body$(2)=" geschreven door Swiddy de 
Louw." [RETURN] 

st$="FORM":request 320,70,2 [RETURN] 

ELSEIF MENU(1)=2 THEN [RETURN] 

WINDOW 2,"Kleurinstellingen 
wijzigen.", (30,15)- (365,70),18 [RETURN] 
ok=0:klid=l:varia6(1)=ident(1,1):varia6(2)= 
dent(l,2):varia6(3)=ident(1,3):show6 3 
[RETURN] 

LINE (50,43)-(112,49), 0,bf [RETURN] 

LINE (113,43)- (177,49) ,l,bf [RETURN] 

LINE (178,43)- (242,49),2,bf [RETURN] 

LINE (243,43)- (310,49),3,bf [RETURN] 

LINE (270,6)-(310,21),2,bf [RETURN] 

LINE (270,6)- (310,21),l,b [RETURN] 

LINE (270,26)- (310,40),2,bf [RETURN] 

LINE (270,26)- (310,40),l,b [RETURN] 

LINE (50,43)-(310,49),l,b [RETURN] 

LINE (277,29)- (301,37),l,b [RETURN] 

LINE (277,29)- (301,37),1 [RETURN] 

LINE (277,37)- (301,29) ,1 [RETURN] 

COLOR 1,2:texting 280,17,"OK!":COLOR 1,0 
[RETURN] 

WHILE ok=0 [RETURN] 

WHILE MOUSE(0)>=0:WEND [RETURN] 
controlö 3 [RETURN] 
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texting 408,59,"Dus op een label van 72" 
[RETURN] 

texting 408,70,"bij 72 mm, passen acht-" 
[RETURN] 

texting 408,81,"tien regels tekst en" 
[RETURN] 

texting 408,92,"per regel 24 karakters" 
[RETURN] 

texting 408,103,"in Pica (10 cpi)" [RETURN] 
texting 408,114,"Met ~opbouwfile~ wordt" 
[RETURN] 

texting 408,125,"bedoeld het bestand" 
[RETURN] 

texting 408,136,"waarin de tekst van" 
[RETURN] 

texting 408,147,"labels staat.In de" 
[RETURN] 

texting 408,158,"~gegevensfile~ staan" 
[RETURN] 

texting 408,169,"bijvoorbeeld alle" 

[RETURN] 

texting 408,180,"programmanamen, 
texting 408,191,"nummers, enz." 
texting 20,220,"Lay-out bestand: 
program$:style 0 [RETURN] 
define 2,20,70,355,127,7 [RETURN] 
define 10,20,10,355,67,4 [RETURN] 
define 11,20,130,58,24,1 [RETURN] 
zolang=0 :bouwop$=opbouw$:gegeven$=bestand$ 
[RETURN] 

COLOR 1,2:texting 

36.94, LEFT$(bouwop$,40):texting 

36,124,LEFT$(gegeven$,40):COLOR 1,0 
[RETURN] 

WHILE zolang=0 [RETURN] 
master 11 [RETURN] 

IF choicemade=l OR choicemade=2 THEN 
[RETURN] 

betl$=program$:bet2$=file$:bet3$=drawer$ 
[RETURN] 

drawer$="DF0 :Examples":file$="":dir 

50.35, "Opbouwfile.", "DF0 :Examples", "VD0 :" 
[RETURN] 

IF dirchoice=6 THEN bouwop$=program$ 
[RETURN] 

program$=betl$:file$=bet2$:drawer$=bet3$ 
[RETURN] 

LINE (21,86)-(374,96),2,bf [RETURN] 

COLOR 1,2:texting 

36.94, LEFT$(bouwop$,40):COLOR 1,0 [RETURN] 
ELSEIF choicemade=3 OR choicemade=4 THEN 
[RETURN] 

betl$=program$:bet2$=file$:bet3$=drawer$ 
[RETURN] 

drawer$="DF0 :Examples":file$="":dir 

50.35, "Gegevensfile.", "DF0 :Examples", "VD0 : 
[RETURN] 

IF dirchoice=6 THEN gegeven$=program$ 
[RETURN] 

program$=betl$:file$=bet2$:drawer$=bet3$ 
[RETURN] 

LINE (21,116)-(374,126),2,bf [RETURN] 

COLOR 1,2:texting 

36,124,LEFT$(gegeven$,40):COLOR 1,0 
[RETURN] 

ELSEIF choicemade=5 THEN [RETURN] 

IF eroverheen=l THEN [RETURN] 

OPEN program$ FOR OUTPUT AS #2 [RETURN] 
PRINT#2,STR$(positionll(1,5)-1)+";" 

[RETURN] 

PRINT#2,STR$(valuelO(1))+";" [RETURN] 


verander: ' verander de lay-out 

[RETURN] 

CLS:taitel$="FORM, geschreven door Swiddy 
de Louw. LAY-OUT" [RETURN] 

titel taitel$,"FORM" [RETURN] 
define2 1,150,76,125,32," 

PREFERENCES",2,1,1 [RETURN] 

define2 2,280,76,125,32," OPBOUW",2,1,1 
[RETURN] 

define2 3,150,112,255,15," TERUG NAAR 
HET HOOFDMENU",3,1,2 [RETURN] 

LINE (95,22)-(475,165),l,b [RETURN] 
show2 3: choicemade=0 [RETURN] 
style 6:texting 102,35,"In dit gedeelte 
kunnen de instellingen zoals" [RETURN] 
texting 102,45,"breedte, hoogte 
(Preferences) en de tekst van" [RETURN] 
texting 102,55,"van het label (Opbouw) 
worden gedefenieerd." [RETURN] 
texting 102,160,"Lay-out bestand: ":style 
2:display file$ [RETURN] 
style 0 [RETURN] 

WHILE choicemade=0 [RETURN] 

WHILE MOUSE(0)>=0:WEND [RETURN] 
control2 3 [RETURN] 

WEND [RETURN] 

IF choicemade=3 THEN RETURN [RETURN] 

ON choicemade GOSUB prefs,opbouw [RETURN] 
FOR f=l TO 11:controllen(f,0)=-l:NEXT 
[RETURN] 

GOTO verander [RETURN] 

RETURN [RETURN] 
prefs: [RETURN] 

CLS:definelO 1,20,10,355,12," Ruimte 
tussen 2 labels in 

milimeters",space%,0, 99, 3,3,1,2 [RETURN] 
definelO 2,20,25,355,12,"Breedte van een 
label in 

milimeters" , breedte%, 0, 999, 4,-2,1,1 [RETURN] 
definelO 3,20,40,355,12,"Hoogte van een 
label in milimeters",hoogte%,0,999,4,2,1,1 
[RETURN] 

definelO 4,20,55,355,12," Marge van een 

label in karakters",lmarge%, 0, 99,3, 1,2,2 
[RETURN] 

define2 1,20,70,355,12," Bestandsnaam van 

de opbouwfile:",2,1,0 [RETURN] 

define2 2,20,85,355,12,"",2,1,0 [RETURN] 

define2 3,20,100,355,12," Bestandsnaam van 

de gegevensfile:",2,1,3 [RETURN] 

define2 4,20,115, 355,12, "", 2,1,0 [RETURN] 

definell 1,20,130,58,2,nlqofdraft%+l,2,1,3 

[RETURN] 

textll$(1,l)="Draft":textll$(1,2)=" NLQ" 
[RETURN] 

define2 5,90,130,285,24," SAVE 

INSTELLINGEN",1,2,2 [RETURN] 
define2 6,20,157,170,40," 

OK",3,2,2 [RETURN] 
define2 7,198,157,177,40," 

CANCEL",3,2,2 [RETURN] 

showlO 4:show2 7:showll 1 [RETURN] 

LINE (400,10)-(600,197),l,b:style 6 
[RETURN] 

texting 408,26,"Een karakter op papier" 
[RETURN] 

texting 408,37,"heeft een breedte van 3" 
[RETURN] 

texting 408,48,"en een hoogte van 4 mm." 
[RETURN] 


’ [RETURN] 
[RETURN] 

":display 
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S PRINT#2,STR$(valuelO(2))+"; M [RETURN] 

| PRINT#2,STR$(valuelO(3))+";" [RETURN] 

I PRINT#2,STR$(valuelO(4))+";" [RETURN] 
PRINT#2,bOUWOp$+";" [RETURN] 

S PRINT#2,gegeven$+";" [RETURN] 

I CLOSE#2 [RETURN] 

I IF puntinfo$="Geen " THEN KILL 
I program$+".in£o" [RETURN] 

I ELSE [RETURN] 

fj body$ (1) = M Overschrijven van" [RETURN] 

| body$(2) = " "+file$ [RETURN] 

body$(3)= M niet toegestaan":no$=" Continue 

■ ":yes$=no$ [RETURN] 

I st$= M FORM M :request 286,75,3 [RETURN] 

| END IF [RETURN] 

| ELSEIF choicemade=7 THEN [RETURN] 

I zolang=l [RETURN] 

I ELSE [RETURN] 

zolang=l [RETURN] 

nlqofdraft%=positionll(1,5)-1 [RETURN] 

J space%=valuelO(1):breedte%=valuelO(2) 

| [RETURN] 

hoogte%=valuelO(3):lmarge%=valuelO(4) 

1 [RETURN] 

«nm 

opbouw$=bouwop$:bestand$=gegeven$ [RETURN] 
END IF [RETURN] 

1 WEND [RETURN] 

1 RETURN [RETURN] 

-7 opbouw: [RETURN] 

IF hoogte%=0 THEN RETURN ' grootte, 
breedte van label moet bekend zijn [RETURN] 

■ CLS:definell 1,20,10,112,4,1,2,1,3 [RETURN] 
i textll$(1,1)="Normaal":textll$(1,2)="Emphasi 
| zed" [RETURN] 

textll$(1,3)="Condensed":textll$(1,4)= M Doubl 
-«; e Width" [RETURN] 

1 define8 1,249,10,56,12,"Pica",1,2,1,3 
B [RETURN] 

define8 2,305,10,56,12,"Elite",0,2,1, 3 
[RETURN] 

react8(1,2)=3:react8(2,1)=3 [RETURN] 
define8 3,249,22,56,12," AAN",0,2,1,3 
[RETURN] 

define8 4,305,22,56,12," UIT",1,2,1,3 
[RETURN] 

react8(3,4)=3:react8(4,3)=3 [RETURN] 
define8 5,249,34,56,12," AAN",0,2,1,3 
[RETURN] 

define8 6,305,34,56,12," UIT", 1,2,1,3 
[RETURN] 

react8(5,6)=3:react8(6,5)=3 [RETURN] 
define8 7,249,46,56,12," AAN",0,2,1,3 
[RETURN] 

define8 8,305,46,56,12," UIT",1,2,1,3 
[RETURN] 

react8(7,8)=3:react8(8,7)=3 [RETURN] 

define2 1,442,10,120,48," SAVE 
OPBOUW",3,2,2 [RETURN] 

define2 2,442,68,120,48," OK",3,2,2 

[RETURN] 

define2 3,442,126,120,48," 

CANCEL",3,2,2 [RETURN] 

define2 4,20,68,341,48,"",2,1,1 [RETURN] 
define2 5,20,126,341,48," 

VOLGENDE REGEL",2,1,1 [RETURN] 
showll 1:show8 8:show2 5 [RETURN] 
texting 153,20,"Lettertype" [RETURN] 
texting 153,32,"Onderlijnen" [RETURN] 
texting 153,44,"Vet" [RETURN] 
texting 153,56,"Cursief" [RETURN] 


LINE (20,184)- (562,232),2,bf:LINE 
(20,184)- (562,232),l,b:style 6:COLOR 3,2 
[RETURN] 

texting 28,196,"Opbouw-bestand! "+opbouw$ 
[RETURN] 

texting 28,212,"Opmerking: Het is veel 
gemakkelijker om het ~opbouw~-bestand via" 
[RETURN] 

texting 28,223,"een ASCII-Editor te 
veranderen, (bv. TxED of ED)":COLOR 1,0 
[RETURN] 

style 0:LINE (36,85)-(345,97),0,bf [RETURN] 
LINE (35,84)- (34 6,98),l,b:COLOR 
1,2:texting 44,81,"Voer hier de tekst in:" 
[RETURN] 

texting 44,110,"[NAAM] [CATEGORIE] 

[NUMMER]":COLOR 1,0 [RETURN] 
define 11,20,10,112,48,1 [RETURN] 
define 8,249,10,361,48,8 [RETURN] 
define 2,20,10,562,177,5 [RETURN] 
cpr%=INT(breedte%/3):lth%=INT(hoogte%/4) 
[RETURN] 

er&=Lock&(SADD(opbouw$), - 2 ) :exi=er&:CALL 
Unlock(er&) [RETURN] 

IF exi>0 THEN OPEN opbouw$ FOR INPUT AS #1 
[RETURN] 

OPEN "vdO:FORM.OPB" FOR OUTPUT AS #2 
[RETURN] 

regel=l: zolang=0 : lastline=0 :end je=0 
[RETURN] 

lettyp%=80:stijl%=l:onderlijn%=48:vet%=72:cu 
rsief%=53 [RETURN] 

WHILE zolang=0 [RETURN] 

IF exi>0 THEN [RETURN] 

LINE INPUT#1,a$:lettyp%=VAL(a$) [RETURN] 

LINE INPUT#1,a$:stijl%=VAL(a$) [RETURN] 

LINE INPUT#1,a$:onderlijn%=VAL(a$) [RETURN] 
LINE INPUT#l,a$:vet%=VAL(a$) [RETURN] 

LINE INPUT#1,a$:cursief%=VAL(a$) [RETURN] 
LINE INPUT#l,a$:tkst$=LEFT$(a$,LEN(a$)-1) 
[RETURN] 

LINE INPUT#1,a$:IF UCASE$(a$)="END;" THEN 
lastline=l [RETURN] 

ELSE [RETURN] 
tkst$="" [RETURN] 

END IF [RETURN] 

positionll(1,5)=stijl% [RETURN] 

IF lettyp%=80 THEN stand8(1)=1:stand8(2)=0 
ELSE stand8(2)=l:stand8(1)=1 [RETURN] 

IF onderlijn%=49 THEN 
stand8(3)=1:stand8(4)=0 ELSE 
stand8(4)=l:stand8(3)=0 [RETURN] 

IF vet%=71 THEN stand8(5)=1:stand8(6)=0 
ELSE stand8(6)=l:stand8(5)=0 [RETURN] 

IF cursief%=52 THEN 

stand8(7)=1:stand8(8)=0 ELSE 

stand8(8)=l:stand8(7)=0 [RETURN] 

LINE (36,85)- (345,97),0,bf:texting 

44,94,LEFT$(tkst$,36) [RETURN] 

showll 1:show8 8 

[RETURN] 

q2: [RETURN] 

titel taitel$,"FORM" [RETURN] 
master 11 [RETURN] 

IF choicemade=1 THEN [RETURN] 
st$="FORM":body$(1)=" Mag er over het 
opbouw-bestand" [RETURN] 
body$(2)=" heen worden geschreven 
?":yes$=" Ja ":no$=" Nee " [RETURN] 
request 300,65,2 [RETURN] 

IF res&=l THEN [RETURN] 
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colour2(num%,3)=col3% [RETURN] 

END SUB [RETURN] 

SUB show2 (num%) STATIC [RETURN] 

FOR f=l TO num% [RETURN] 

COLOR colour2(f,3),colour2(£, 1) [RETURN] 

LINE 

(position2(f,1),position2(f,2))-(position2(f 
,1)+position2(f,3),position2(f,2)+position2( 
f,4)),colour2(f,1),bf [RETURN] 

q=(position2(f,4)-8)/2:b%=position2(f,1)+8:a 
%=position2(f,2)+q+8:texting 
b%,a%,text2$(f) [RETURN] 

LINE 

(position2(f,1),position2(f,2))-(position2(f 
,1)+position2(f,3),position2(f,2)+position2( 
f,4)),colour2(f,2),b [RETURN] 

NEXT [RETURN] 

COLOR 1,0 [RETURN] 

END SUB [RETURN] 

SUB control2 (num%) STATIC [RETURN] 

SHARED choicemade [RETURN] 
x=MOUSE(l):y=MOUSE(2) [RETURN] 
choicemade=0 [RETURN] 

FOR f=1 TO num% [RETURN] 
xway= 0:yway=0 [RETURN] 

IF x>position2(f,1)-1 AND 
x<position2(f,1)+position2(f,3)+1 THEN 
xway=l [RETURN] 

IF y>position2(f,2)-2 AND 
y<position2(f,2)+position2(f,4) THEN 
yway=l [RETURN] 

IF xway=l AND yway=l THEN 
choicemade=f:f=num% [RETURN] 

NEXT f [RETURN] 

END SUB [RETURN] 

SUB createlO (n%) STATIC [RETURN] 

DIM SHARED 

positionlO(n%,4),limitlO(n%,3), textl0$ (n%),c 
olourlO(n%,3),valuelO(n%) [RETURN] 

END SUB [RETURN] 

SUB definelO 

(n%,xl%,yl%,x2%,y2%,tekst$,v%,11%,12%,13%,cl 
%,c2%,c3%) STATIC [RETURN] 

positionlO(n%,1)=xl% :positionl0 (n%,2)=yl% 
[RETURN] 

positionlO(n%,3)=x2%:positionlO(n%,4)=y2% 
[RETURN] 

limitlO(n%,1)=11%:limitlO(n%,2)=12% 

[RETURN] 

limitlO(n%,3)=13%:valuelO(n%)=v% [RETURN] 
textl0$ (n%)=tekst$:colourlO(n%,1)=cl% 

[RETURN] 

colourlO(n%,2)=c2%:colourlO(n%,3)=c3% 

[RETURN] 

END SUB [RETURN] 

SUB showlO (n%) STATIC [RETURN] 

FOR f=l TO n% [RETURN] 

COLOR colourlO(f,3),colourlO(f,1) [RETURN] 
LINE 

(positionlO(f,1),positionlO(f,2))-(positionl 
0(f,1)tpositionlO(f,3),positionlO(f,2)tposit 
ionlO(f,4)),colourlO(f,1),bf [RETURN] 

LINE 

(positionlO(f,1),positionlO(f,2))-(positionl 
0(f,1)tpositionlO(f,3),positionlO(f,2)+posit 
ionlO(f,4)),colourlO(f,2),b [RETURN] 
a%=24+positionl0(f,1)+(limitlO(f,3)*8):b%=po 
sitionlO(f,2)+3+(positionlO(f,4)/2) 

[RETURN] 


endje=l:plaats [RETURN] 
dorest [RETURN] 

OPEN "VDO:FORM.OPB" FOR INPUT AS #1 
[RETURN] 

OPEN opbOUW$ FOR OUTPUT AS #2 [RETURN] 
dorest [RETURN] 

zolang=l;bron$=opbouw$ [RETURN] 

IF puntin£o$= n Geen " THEN KILL 
opbouw$+".info" [RETURN] 

END IF [RETURN] 

ELSEIF choicemade=2 THEN [RETURN] 
body$(1)=" Bij de volgende aanroep van 

OPBOUW" [RETURN] 

body$(2)=" zal het ongewijzigde bestand 
weer" [RETURN] 

body$(3)=" worden gebruikt. Is dit goed ?" 
[RETURN] 

yes$=" Ja ":no$=" Nee ":request 347,76,3 
[RETURN] 

IF res&=0 THEN [RETURN] 

GOTO q2 [RETURN] 

ELSE [RETURN] 

endje=l:plaats [RETURN] 

dorest [RETURN] 

zolang=l:bron$=”VDO:FORM.OPB" [RETURN] 

END IF [RETURN] 

ELSEIF choicemade=3 THEN [RETURN] 

CLOSE#2:KILL "vdO:FORM.OPB" [RETURN] 
zolang=l:bron$=opbouw$ [RETURN] 

ELSEIF choicemade=4 THEN [RETURN] 
ed tkst$,36,cpr%+50,44, 94 [RETURN] 
tkst$=inv$:LINE 
(36,85)- (345,97),0,bf:texting 
44,94,LEFT$(tkst$,36) [RETURN] 

GOTO q2 [RETURN] 

ELSEIF choicemade=5 THEN [RETURN] 

IF regel=lth% THEN endje=l [RETURN] 

IF regel>lth% THEN [RETURN] 

BEEP:GOTO q2 [RETURN] 

ELSEIF lastline=0 THEN [RETURN] 
regel=regel+l:plaats [RETURN] 

ELSEIF lastline=l AND regel+l<=lth% THEN 
[RETURN] 

exi=0 :regel=regel+l:plaats [RETURN] 

END IF [RETURN] 

IF endje=l THEN BEEP [RETURN] 

END IF [RETURN] 

WEND [RETURN] 

CLOSE#2:CLOSE#l [RETURN] 

RETURN [RETURN] 

SUB titel (wt$,st$) STATIC [RETURN] 
wt$=wt$+CHR$(0):st$=st$+CHR$(0) [RETURN] 

CALL 

SetWindowTitles(WINDOW(7),SADD(wt$),SADD(st$ 
) ) [RETURN] 

END SUB [RETURN] 

SUB create2 (num%) STATIC [RETURN] 

DIM SHARED 

position2 (num%, 4) , text2$ (num%) , colour2 (num%, 
3) [RETURN] 

END SUB [RETURN] 

SUB define2 

(num%,xpos%,ypos%,xlength%,ylength%,text$,co 

11%,col2%,col3%) STATIC [RETURN] 

position2(num%,1)=xpos% [RETURN] 

position2(num%,2)=ypos% [RETURN] 

position2(num%,3)=xlength% [RETURN] 

position2(num%,4)=ylength% [RETURN] 

text2$(num%)=text$ [RETURN] 

colour2(num%,1)=coll% [RETURN] 

colour2(num%,2)=col2% [RETURN] 
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texting x%+8,y%-3+(12*g%),textll$(f,g%) 
[RETURN] 

IF g%=positionll(f,5) THEN COLOR 
colourll(f,3) , colourll(f,1) [RETURN] 

NEXT g% [RETURN] 

NEXT f [RETURN] 

COLOR 1,0 [RETURN] 

END SUB [RETURN] 

SUB controlll (n%) STATIC [RETURN] 

SHARED choicemade [RETURN] 
x%=MOUSE(1):y%=MOUSE(2): choicemade=0 
[RETURN] 

FOR f=l TO n% [RETURN] 
xway=0 : yway=0 [RETURN] 

IF x%>positionll(f,1)-1 AND 
x%<positionll(f,1)+positionll(f,3)+1 THEN 
xway=l [RETURN] 

IF y%>positionll(f,2)-1 AND 
y%<positionll(f,2)+(positionll(f,4)*12)+1 
THEN yway=l [RETURN] 

IF xway=l AND yway=l THEN 
choicemade=f:f=n% [RETURN] 

NEXT f [RETURN] 

IF choicemade=0 THEN EXIT SUB [RETURN] 
c=choicemade:p3%=positionll(c,1):p4%=positio 
nll (c,2) [RETURN] 

FOR f=l TO positionll(c,4) [RETURN] 
yway=0 :IF y%>p4%+((f-1)*12)-1 AND 
y%<p4%+(f*12)+1 THEN yway=l [RETURN] 

IF yway=l THEN choice=f:f=positionll(c,4) 
[RETURN] 

NEXT [RETURN] 

IF positionll(c,5)=choice THEN EXIT SUB 
[RETURN] 

f%=positionll(c,5):p%=positionll(c,1):p2%=po 
sitionll(c,2) [RETURN] 

LINE 

(l+p%,l+p2%+((f%-l)*12))-(p%+positionll(c,3) 
-1,p2%+(f%*12)-1),colourll(c,1),bf [RETURN] 
COLOR colourll(c,3),colourll(c,1):texting 
p%+8,p2%-3+(12*f%),textll$(c,positionll(c,5) 

) [RETURN] 

f%=choice:p%=p3%:p2%=p4% [RETURN] 

LINE 

(l+p%,l+p2%+((f%-l)*12))-(p%+positionll(c,3) 
-1,p2%+(f%*12)-1),colourll(c,3),bf [RETURN] 
COLOR colourll(c,1),colourll(c,3):texting 
p%+8,p2%-3+(12*f%),textll$(c,choice) 

[RETURN] 

positionll(c,5)=choice [RETURN] 

COLOR 1,0 [RETURN] 

END SUB [RETURN] 

SUB create8 (n%) STATIC [RETURN] 

DIM SHARED 

position8(n%,4),text8$(n%),colour8(n%,3),sta 
nd8(n%),react8(n%, n%) [RETURN] 

END SUB [RETURN] 

SUB define8 

(n%,x%,y%,xl%,yl%,tekst$,st%,cl%,c2%,c3%) 
STATIC [RETURN] 

position8(n%,1)=x%:position8(n%,2)=y% 

[RETURN] 

position8(n%,3)=xl%:position8(n%,4)=yl% 
[RETURN] 

text8$(n%)=tekst$:colour8(n%,1)=cl% 

[RETURN] 

colour8(n%,2)=c2%:colour8(n%,3)=c3%:stand8(n 
%)=st% [RETURN] 

END SUB [RETURN] 

SUB show8 (n%) STATIC [RETURN] 

FOR f=l TO n% [RETURN] 


texting 

a%,b%, textl0$ (f):a%=8+positionl0(f,1):textin 
g a%,b%,STR$(valuelO(f)) [RETURN] 

NEXT f [RETURN] 

COLOR 1,0 [RETURN] 

END SUB [RETURN] 

SUB controllO (n%) STATIC [RETURN] 

SHARED choicemade,inv,inv$ [RETURN] 
x%=MOUSE(1):y%=MOUSE(2): choicemade=0 
[RETURN] 

FOR f=l TO n% [RETURN] 
xway=0 : yway=0 [RETURN] 

IF x%>positionlO(f,1)-1 AND 
x%<positionlO(f,1)tpositionlO(f,3)+1 THEN 
xway=l [RETURN] 

IF y%>positionlO(f,2)-1 AND 
y%<positionlO(f,2)tpositionlO(f,4)+1 THEN 
yway=l [RETURN] 

IF xway=l AND yway=l THEN 
choicemade=f:f=n% [RETURN] 

NEXT f [RETURN] 

f=choicemade:IF f=0 THEN EXIT SUB [RETURN] 
a%=16+positionl0(f,1):b%=positionlO(f,2)+3+( 
positionlO(f,4)/2): c%=limitl0 (f,3) [RETURN] 
COLOR 

colourlO(f,3),colourlO(f,1):inv=-32768&:text 
ing a%-8,b%," " [RETURN] 

WHILE NOT(inv>limit10(f,1)-1 AND 

inv<limit10(f,2)+1) [RETURN] 

ed STR$(valuelO(f)), c%,c%+l, a%,b% [RETURN] 

WEND [RETURN] 

valuelO(f)=inv:verwerk 

a%-8,b%,STR$(inv),c%+l:COLOR 1,0 [RETURN] 

END SUB [RETURN] 

SUB createll (n%,m%) STATIC [RETURN] 

DIM SHARED 

positionll(n%,5),text11$(n%,m%) , colourll(n%, 
3) [RETURN] 

END SUB [RETURN] 

SUB definell 

(n%,xl%,y%,x2%,num%,v%,cl%,c2%,c3%) STATIC 
[RETURN] 

positionll(n%,1)=xl%:positionll(n%,2)=y%:pos 
itionll(n%,3)=x2% [RETURN] 
positionll(n%,4)=num% :positionll(n%,5)=v% 
[RETURN] 

colourll(n%,1)=cl%:colourll(n%,2)=c2%:colour 
11(n%,3)=c3% [RETURN] 

END SUB [RETURN] 

SUB showll (n%) STATIC [RETURN] 

FOR f=l TO n% [RETURN] 

COLOR 

colourll(f,3),colourll(f,1):x%=positionll(f, 

1) :y%=positionll(f,2):num%=positionll(f,4) 
[RETURN] 

LINE 

(x%,y%)-(x%+positionll(f,3),y%+(num%*12)),co 
lourll(f,1),bf [RETURN] 

LINE 

(x%,y%)-(x%+positionll(f,3),y%+(num%*12)),co 
lourll(f,2),b [RETURN] 

FOR g%=l TO num% [RETURN] 

IF g%=positionll(f,5) THEN [RETURN] 

LINE 

(l+x%,l+y%+((g%-l)*12))-(x%+positionll(f,3)- 
1,y%+(g%*12)),colourll(f,3),bf [RETURN] 

COLOR colourll(f,1),colourll(f,3) [RETURN] 
END IF [RETURN] 

LINE 

(x%,y%+(g%*12))-(x%+positionll(f,3),y%+(g%*l 

2) ),colourll(f,2) [RETURN] 
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LINE 

(position8(f,1),position8(f,2))-(positionÖ(f 
,1)+position8(f,3),positionÖ(f,2)tpositionÖ( 
f,4)),colourö(f,1),bf [RETURN] 

LINE 

(positionÖ(f,1),positionÖ(f,2))-(positionÖ(f 
,1)+position8(f,3),positionÖ(f,2)tpositionÖ( 
f,4)),colourö(f , 2),b [RETURN] 

txy%=position8(£,2)t((positionÖ(f,4)-Ö)/2)+8 
:txx%=position8(f,1)tö:texting 
txx%,txy%,text8$(f) [RETURN] 

END IF [RETURN] 

NEXT f;ERASE shadow:COLOR 1,0 [RETURN] 

END SUB [RETURN] 

SUB request(wid%, hi% ,bt%) STATIC [RETURN] 
SHARED add&,st$,res&,body$,yes$,no$,offs% 
[RETURN] 

opt&=2 A lt2 A 16:offs%=0 [RETURN] 
req&=AllocRemember&(0,400,opt&) [RETURN] 

IF req&=0 THEN ERROR 7 [RETURN] 
add&=req& [RETURN] 
tl&=add& [RETURN] 

FOR loop2=0 TO bt%-l [RETURN] 
st$=body$(loop2) [RETURN] 

makeheader add&, st$,1,5,offs%+3 [RETURN] 
offs%=offs%+8 [RETURN] 

NEXT loop2 [RETURN] 
st$=body$(bt%) [RETURN] 

makeheader add&, st$,0,5,offs%+3 [RETURN] 
st$=yes$ [RETURN] 
t2&=add& [RETURN] 

makeheader add&,st$,0,5, 3 [RETURN] 
st$=no$ [RETURN] 
t3&=add& [RETURN] 

makeheader add&,st$,0,5, 3 [RETURN] 
res&=autorequest&(WINDOW(7),tl&,t2&,t3&,0,0, 
wid%,hi%) [RETURN] 

CALL freeremember(0,-1) [RETURN] 

END SUB [RETURN] 

SUB makeheader(ptr&,text$,md%,le%,te%) 

STATIC [RETURN] 

SHARED add& [RETURN] 

text$=text$tCHR$(0):POKE ptr&,l:P0KE 
ptr&+l,0 [RETURN] 

POKE ptr&+2,2:POKEW ptr&+4,le%:POKEW 
ptr&t6,te% [RETURN] 

POKEL ptr&tÖ,0:POKEL ptr&+12,SADD(text$) 
[RETURN] 

IF md%=0 THEN [RETURN] 

POKEL ptr&tl6,0 [RETURN] 

ELSE [RETURN] 

POKEL ptr&tl6,ptr&t20 [RETURN] 

END IF [RETURN] 
add&=ptr&+20 [RETURN] 

END SUB [RETURN] 

SUB display (text$) STATIC [RETURN] 

CALL 

text&(WINDOW(8),SADD(text$),LEN(text$)) 
[RETURN] 

END SUB [RETURN] 

SUB texting (px2%,py2%,tekst$) STATIC 
[RETURN] 

e&=Move&(WINDOW(8),px2%,py2%) [RETURN] 

CALL 

text&(WINDOW(8),SADD(tekst$),LEN(tekst$)) 
[RETURN] 

END SUB [RETURN] 

SUB style(style%) STATIC [RETURN] 
bits&=Asksoftstyle&(WINDOW(8)) [RETURN] 
newstyle&=Setsoftstyle&(WINDOW(8),style%,bit 
s&) [RETURN] 


COLOR colourö(f,3),colour8(f, 1) [RETURN] 

LINE 

(positionÖ(f,1) f positionÖ(f,2))-(positionÖ(f 
,1)+ P osition8(f,3),positionÖ(f,2)tpositionÖ( 
f,4)),colourö(f,1),bf [RETURN] 

LINE 

(positionÖ(f,1),positionÖ(f,2))-(positionÖ (f 
,1)tpositionÖ(f,3),positionÖ(f,2)tpositionÖ( 
f,4)),COlour8(f,2),b [RETURN] 

txy%=position8(f,2)t((positionÖ(f,4)-8)/2)tö 
:txx%=position8(f,1)tÖ:texting 
txx%,txy%,text8$(f) [RETURN] 

IF standÖ(f)=0 THEN LINE 

(positionÖ(f,1)tl,positionÖ(f,2)tpositionÖ(f 
,4)-1)-(positionÖ(f,1)tpositionÖ(f,3)-1,posi 
tionÖ(f,2)tl),colourö(f,3) [RETURN] 

NEXT f [RETURN] 

COLOR 1,0 [RETURN] 

END SUB [RETURN] 

SUB controlÖ (num%) STATIC [RETURN] 

SHARED choicemade,priority [RETURN] 
x=MOUSE(1):y=MOUSE(2) [RETURN] 
choicemade=0 [RETURN] 

FOR f=l TO num% [RETURN] 
xway= 0:yway=0 [RETURN] 

IF x>position8(f,1)-2 AND 
x<position8(f,1)tpositionÖ(f,3) THEN 
xway=l [RETURN] 

IF y>position8(f,2)-2 AND 
y<position8(f,2)tpositionÖ(f,4) THEN 
yway=l [RETURN] 

IF xway=l AND yway=l THEN 
choicemade=f:f=num% [RETURN] 

NEXT f [RETURN] 

IF choicemade=0 THEN EXIT SUB [RETURN] 
g=choicemade:changes=l [RETURN] 

IF priority>0 AND gOpriority AND 
stand8(priority)=0 THEN EXIT SUB [RETURN] 

FOR f=l TO num% 

[RETURN] 

IF reactÖ(g,f)=0 THEN NEKST [RETURN] 

IF react8(g,f)=2 AND stand8(f)=0 THEN 
f=num%:changes=-l:GOTO NEKST [RETURN] 

IF reactÖ(g,f)=-2 AND stand8(f)=l THEN 
f=num%:changes=-l [RETURN] 

NEKST: NEXT f [RETURN] 

IF changes=-l THEN EXIT SUB [RETURN] 

DIM shadow(num%):FOR f=l TO 

num%:shadow(f)=stand8(f):NEXT f [RETURN] 

IF standÖ(g)=l THEN standÖ(g)=0 ELSE 
standÖ(g)=1 [RETURN] 

FOR f=l TO num% [RETURN] 

IF reactÖ(g,f)=l THEN [RETURN] 
standÖ(f)=1 [RETURN] 

ELSEIF reactÖ(g,f)=-l THEN [RETURN] 
standÖ(f)=0 [RETURN] 

ELSEIF reactÖ(g,f)=3 THEN [RETURN] 

IF standÖ(g)=l THEN standÖ(f)=0 ELSE 
standÖ(f)=1 [RETURN] 

END IF [RETURN] 

NEXT f [RETURN] 

FOR f=1 TO num% [RETURN] 

IF shadow(f)=1 AND standÖ(f)=0 THEN 
[RETURN] 

LINE 

(positionÖ(f,1)tl,positionÖ(f,2)tpositionÖ(f 
,4)-1)-(positionÖ(f,1)tpositionÖ(f,3)-1,posi 
tionÖ(f,2)tl),colourö(f,3) [RETURN] 

ELSEIF shadow(f)=0 AND standÖ(f)=l THEN 
[RETURN] 

COLOR colourö(f,3),colourö(f,1) [RETURN] 
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END SUB [RETURN] 

SUB getdir (diri$) STATIC [RETURN] 

SHARED counter%,maxidir%,fault% [RETURN] 
diri$=diri$+CHR$(0): counter%=0 :bytes&=252;fa 
ult%=0 :er&=Lock&(SADD(diri$),-2) [RETURN] 

IF er&=0 THEN fault%=l:EXIT SUB [RETURN] 
opt&=2^1+2 / '16: info&=Allocmem& (bytes&, opt&) : s 
uc&=Examine&(er&,info&) [RETURN] 

IF suc&=0 THEN EXIT SUB [RETURN] 
again: [RETURN] 
dirname&=info&+8 [RETURN] 

FOR search=0 TO 29 [RETURN] 
check=PEEK(dirname&+search) [RETURN] 

IF checkOO THEN check$=check$+CHR$ (check) 
ELSE search=29 [RETURN] 

NEXT search [RETURN] 

dirname$(counter%)=check$:check$="":type&=PE 
EKL(info&+120):dirtype$="" [RETURN] 

IF type&>-l AND counter%>0 THEN dirtype$=" 
(Dir) M [RETURN] 

dirname$(counter%)=dirname$(counter%)+dirtyp 
e$:suc&=Exnext&(er&,info&):IF suc&=0 THEN 
finish [RETURN] 

counter%=counter%+l:IF counter%<=maxidir% 
THEN GOTO again [RETURN] 
finish: [RETURN] 

CALL freemem(info&,bytes&):CALL 
Unlock(er&) [RETURN] 

END SUB [RETURN] 

SUB dir (x%,y%,naam$,path$,extra$) STATIC 
[RETURN] 

SHARED 

dirchoice,counter%,x2%,y2%,place,inv$,inv,fa 
ult%,drawer$,file$,program$ [RETURN] 
x2%=x%:y2%=y%:until%=l:POKE 12574721&,254 
[RETURN] 

IF odraw$Opath$ THEN [RETURN] 

IF keer=l THEN ERASE position9 [RETURN] 
keer=l:getdir 

path$:path$=LEFT$(path$,LEN(path$)-1):drawer 
$=path$ [RETURN] 

DIM position9(7,4) rRESTORE dirdata:place=l 
[RETURN] 

FOR f=1 TO 7:FOR g=l TO 4:READ 
position9(f,g):NEXT g:NEXT f [RETURN] 

END IF [RETURN] 

GET (x%,y%)-(x%+200,y%+130),dirblock% 

[RETURN] 

LINE (x%,y%)-(x%+200,y%+130),0,bf:LINE 
(x%,y%)-(x%+200,y%+ll),l,bf:COLOR 0,1 
[RETURN] 

texting x%+8,y%+9,naam$:LINE 
(x%,y%+13)-(x%+183,y%+77),l,bf [RETURN] 

LINE 

(x%+186,y%+13)-(x%+200,y%+25),1,bf:LINE 
(x%+186,y%+27)-(x%+200,y%+63),l,bf [RETURN] 
LINE (x%+186,y%+65)-(x%+200,y%+77),1,bf 
[RETURN] 

AREA (x%+188,y%+23):AREA STEP(10,0):AREA 
STEP(-5,-8):AREA STEP(-5,8):AREAFILL 
[RETURN] 

AREA (x%+188,y%+67):AREA STEP(10,0):AREA 
STEP(-5,8):AREA STEP(-5,-8):AREAFILL 
[RETURN] 

LINE 

(x%,y%+79)-(x%+200,y%+130),1,bf:texting 
x%+4,y%+87,"Drawer":texting 
x%+4,y%+97,"File" [RETURN] " 

LINE 

(x%+60,y%+80)-(x%+197,y%+88),0,bf:LINE 
(x%+60,y%+90)-(x%+197,y%+98), 0,bf [RETURN] 


LINE 

(x%+4,y%+102)-(x%+65,y%+113),0,b£:LINE 
(x%+70,y%+102)-(x%+131 / y%+113), 0,bf 
[RETURN] 

LINE 

(x%+136,y%+102)-(x%+196,y%+113),0,bf:LINE 
(x%+36,y%+116)-(x%+97,y%+127), 0,bf [RETURN] 
LINE 

(x%+103,y%+116)-(x%+168,y%+127), 0,bf :COLOR 
1,0:texting x%+19,y%+110, "DF0 :" [RETURN] 
texting x%+87,y%+110,"DF1:":texting 
x%+65,y%+87,RIGHT$(drawer$,16) [RETURN] 

IF extra$=" " OR RIGHT$ (extra$, 1) O" : " THEN 

extra$="RAM:" [RETURN] 

texting x%+152,y%+110,extra$:texting 

x%+44,y%+124,"Accept":texting 

x%+113,y%+124,"Cancel":fresh [RETURN] 

dirmouseloop: WHILE MOUSE(0)>=0:WEND 

[RETURN] 

px=MOUSE(1):py=MOUSE(2) [RETURN] 
clickpart=0 [RETURN] 

IF px>x%-l AND px<x%+184 AND py>y%+12 AND 
py<y%+78 THEN [RETURN] 
clickpart=l [RETURN] 

ELSEIF px>x%+185 AND px<x%+201 AND 
py>y%+12 AND py<y%+78 THEN [RETURN] 
clickpart=2 [RETURN] 

ELSEIF px>x%-l AND px<x%+201 AND py>y%+78 
AND py<y%+131 THEN [RETURN] 
clickpart=3 [RETURN] 

END IF [RETURN] 

IF clickpart=0 THEN [RETURN] 

GOTO dirmouseloop [RETURN] 

ELSEIF clickpart=l THEN [RETURN] 
oldunt%=until% [RETURN] 

FOR f=l TO 8 [RETURN] 

IF py>y%+12+((f-1)*8) AND py<y%+13+(f*8) 

THEN until%=f:f=8 [RETURN] 

NEXT f [RETURN] 

difference%=until%-oldunt% [RETURN] 
place=place+difference% [RETURN] 

COLOR 0,1:texting 

x%+175,y%+12+(8*oldunt%)," ":COLOR 1,0 
[RETURN] 

IF RIGHT$(dirname$(place),5)= M (Dir)" THEN 
[RETURN] 

IF RIGHT$ (drawer $, 1)0" : " THEN 
drawer$=drawer$+"/" [RETURN] 

path2$=dirname$(place):drawer$=drawer$+LEFT$ 
(path2 $,LEN(path2 $)-6) [RETURN] 
verwerk x%+65,y%+87,drawer$,16 [RETURN] 
getdir drawer$:place=l:until%=l:fresh 
[RETURN] 

drawer$=LEFT$(drawer$,LEN(drawer$)-1) 

[RETURN] 

ELSEIF file$Odirname$ (place) THEN [RETURN] 
file$=dirname$(place):app$="" [RETURN] 
verwerk x%+65,y%+97,RIGHT$(file$,16),16 
[RETURN] 

END IF [RETURN] 

COLOR 0,1:texting 

x%+175,y%+12+(8*until%),"-":COLOR 1,0 
[RETURN] 

ELSEIF clickpart=2 AND counter%>0 THEN 
[RETURN] 

COLOR 0,1:texting 

x%+175,y%+12+(8*until%)," " [RETURN] 

IF py<y%+26 THEN [RETURN] 

IF place>l THEN [RETURN] 
place=place-l:until%=until%-l [RETURN] 

IF until%<l THEN [RETURN] 
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ELSEIF dirchoice=3 THEN [RETURN] 
path$= n DFO:":getdir path$:drawer$="DFO: M 
[RETURN] 

place=l:until%=l:fresh:verwerk 
x%+65,y%+87,drawer$,16 [RETURN] 

ELSEIF dirchoice=4 THEN [RETURN] 
path$="DFl:":getdir path$:drawer$="DFl:" 
[RETURN] 

place=l:until%=l:fresh:verwerk 
x% + 65,y%+87,drawer$,16 [RETURN] 

ELSEIF dirchoice=5 THEN [RETURN] 
path$=extra$:getdir path$:drawer$=extra$ 

[RETURN] 

place=l:until%=l:fresh:verwerk 
x%+65,y%+87,drawer$,16 [RETURN] 

END IF [RETURN] 

END IF [RETURN] 

GOTO dirmouseloop [RETURN] 

END SUB [RETURN] 
dirdata: [RETURN] 

DATA 

59,79,198,89,59,89,198,99,3,101,66,114,69,1 
1,132,114,135,101,197,114,35,115,98,128,102 
115,169,128 [RETURN] 

SUB fresh STATIC [RETURN] 

SHARED place,x2%,y2%,counter% [RETURN] 
COLOR 0,1 [RETURN] 
h%=0 [RETURN] 

FOR f%=place TO place+7:h%=h%+l:app$= M " 
[RETURN] 

e&=Move&(WINDOW(8),x2%+4,y2%+12+(8*h%)) 
[RETURN] 

IF LEN(dirname$(f%))<21 THEN 
app$=STRING$(21-LEN(dirname$(f%)),” ") 
[RETURN] 

IF NOT(f%>counter%) THEN display 

MID$(dirname$(f%),1,21)+app$ ELSE display 

STRING$(21, " ") [RETURN] 

e&=Move&(WINDOW(8),x2%+175,y2%+12+(8*h%) ) 
[RETURN] 

IF f%<>place THEN display " " ELSE 
:display [RETURN] 

NEXT f% [RETURN] 

COLOR 1,0 [RETURN] 

END SUB [RETURN] 

SUB ed (text$,length%,max%,xp%,yp%) STATIC 
[RETURN] 

SHARED inv$,inv [RETURN] 
inv$=text$:key$="": key=0 [RETURN] 
texting xp%,yp%,STRING$(length%, M ") 
[RETURN] 

texting xp%, yp%, RIGHT$ (inv$, length%-l) 
[RETURN] 

WHILE NOT (key=13 OR key=27 OR 
LEN(inv$)=>max%) [RETURN] 
key$= M " :key=-l [RETURN] 

WHILE key$= MM :key$=INKEY$:WEND [RETURN] 


IÉ1Ij place=place-7: IF place<l THEN place 1 
| [RETURN] 

Ö until%=l:fresh:place=place+7 [RETURN] 

COLOR 0/1;texting x%+175,y%+20," 

" :until%=8 -.texting x%+175,y%+76, 

[RETURN] 

END IF [RETURN] 

END IF [RETURN] 

ELSEIF py>y%+65 THEN [RETURN] 

IF place<counter% THEN place=place+l 
[RETURN] 

until%=until%+l:IF until%>8 THEN 
:fresh:until%=l [RETURN] 

ELSE [RETURN] 

COLOR 1,0 [RETURN] 

IF RIGHT$(dirname$(place),5)="(Dir)" THEN 
[RETURN] 

IF RIGHT$(drawer$,1)<> M :" THEN 
drawer$=drawer$+"/" [RETURN] 

path2$=dirname$(place):drawer$=drawer$+LEFT$ 
(path2$,LEN(path2$)-6) [RETURN] 
verwerk 

x%+65,y% + 87,RIGHT$(drawer$,16),16:getdir 
drawer$:place=l [RETURN] 

until%=l:fresh:drawer$=LEFT$(drawer$,LEN(dra 
wer$)-1) [RETURN] 

ELSEIF file$Odirname$ (place) THEN [RETURN] 
file$=dirname$(place):verwerk 
x%+65,y%+97,RIGHT$(file$,16),16 [RETURN] 

END IF [RETURN] 

END IF [RETURN] 

COLOR 0,1:texting 

x%+175,y%+12+(8*until%),:COLOR 1,0 
[RETURN] 

ELSE [RETURN] 
dirchoice=0 [RETURN] 

FOR f=l TO 7 [RETURN] 
xway=0 : yway=0 [RETURN] 

IF px>x%+position9(f,1) AND 

px<x%+position9(f, 3) THEN xway=l [RETURN] 

IF py>y%+position9(f,2) AND 

py<y%+position9(f,4) THEN yway=l [RETURN] 

IF xway=l AND yway=l THEN dirchoice=f:f=7 
[RETURN] 

NEXT f [RETURN] 

IF dirchoice=6 OR dirchoice=7 THEN [RETURN] 
PUT (x%,y%),dirblock%,PSET:POKE 
12574721&,252:odraw$=path$ [RETURN] 

COLOR 1,0:IF RIGHT$(drawer$,1)<> M :" AND 
RIGHT$(drawer$,1)<>"/" THEN p$="/ M ELSE 
p$=' f " [RETURN] 

program$=drawer$+p$+file$:EXIT SUB [RETURN] 
ELSEIF dirchoice=l THEN [RETURN] 
ans=LEN(drawer$)+1:ed 

drawer$,16,255,x%+65,y%+87:path$=inv$:existi 
ng=0 :er&=Lock&(SADD(path$) , -2) [RETURN] 

IF UCASE$(drawer$)<>UCASE$(path$) AND 
er&>0 THEN [RETURN] 

drawer$=path$:getdir path$ [RETURN] 
place=l:until%=l:fresh [RETURN] 

END IF [RETURN] 

verwerk x%+65,y%+87,RIGHT$(drawer$,16),16 
[RETURN] 

ELSEIF dirchoice=2 THEN [RETURN] 
ed file$,16,255,x%+65,y%+97 [RETURN] 

IF UCASE$(inv$)<>UCASE$(file$) THEN 
[RETURN] 

file$=inv$ [RETURN] 

-r- END IF [RETURN] 
tB l verwerk x%+65, y%+97, RIGHT$ (file$, 16) , 16 

SÊÊÊi [RETURN] 
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inv$=LEFT$(inv$,LEN(inv$)-1):IF key=27 
THEN inv$=text$ [RETURN] 
inv=VAL(inv$) [RETURN] 

END SUB [RETURN] 

SUB verwerk (px2%,py2%,tekst$,length%) 

STATIC [RETURN] 

tekst2$="":IF LEN(tekst$)<length% THEN 
tekst2 $=STRING$(length%-LEN(tekst$)," ") 
[RETURN] 
texting 

px2%,py2%,RIGHT$(tekst$,length%)+tekst2$ 
[RETURN] 

END SUB [RETURN] 

SUB create6 (num%) STATIC [RETURN] 

DIM SHARED 

position6(num%,3),text6$(num%),scale6(num%, 3 
) , colour6 (num%, 3) , varia6 (num%) , path6$ (num%) 
[RETURN] 

END SUB [RETURN] 

SUB defineö 

(num%,px%,py%,lenx%,tekst$,schl%,sch2%,vari% 
,sch3%,coll%,col2%,col3%) STATIC [RETURN] 
positionö(num%,1)=px%:position6(nura%,2)=py% 
[RETURN] 

position6(num%,3)=lenx%:text6$(num%)=tekst$ 
[RETURN] 

scale6(num%,1)=schl%:scale6(num%,2)=sch2% 
[RETURN] 

scale6(num%,3)=sch3%:colour6(num%,1)=coll% 
[RETURN] 

colour6(num%,2)=col2%:colourö(num%,3)=col3% 
[RETURN] 

variaö(num%)=vari%:path6$(num%)=STRING$(LEN( 
MID$(STR$(sch2%),2)),"#") [RETURN] 

END SUB [RETURN] 

SUB show6 (num%) STATIC [RETURN] 

FOR f=l TO num% [RETURN] 

px%=position6(f,1)-((LEN(text6$(f))+1)*8):py 
%=position6(f,2) [RETURN] 

COLOR colourö(f,2):texting 
px%,py%+8,text6$(f) :px%=position6 (f,1) 
[RETURN] 

LINE 

(px%,py%)-(px%+positionö(f,3),py%+10),colour 
6(f,1),bf [RETURN] 

LINE 

(px% f py%)-(px%+position6(f,3),py%+10),colour 
6(f,2),b [RETURN] 

IF scale6(f,3)=1 THEN [RETURN] 
pox%=px%+positionö(f,3)+8 [RETURN] 
e&=Move&(WINDOW(8),pox%,py%+8) [RETURN] 

PRINT USING path6$(f);varia6(f) [RETURN] 

END IF [RETURN] 

ps=(position6(f,3)/(scale6(f,2)-scale6(f,1)) 

)*(varia6(f)-scale6(f,1)) [RETURN] 

LINE 

(px%+ps,py%+l)-(px%+ps,py%+9),colourö(f,3) 
[RETURN] 

NEXT f [RETURN] 

COLOR 1,0 [RETURN] 

END SUB [RETURN] 

SUB control6 (num%) STATIC [RETURN] 

SHARED choicemade [RETURN] 
x=MOUSE(1):y=MOUSE(2) [RETURN] 

choicemade=0 [RETURN] 

FOR f=l TO num% [RETURN] 
xway=0:yway=0 [RETURN] 

IF x>position6(f,1)-1 AND 
x<position6(f,1)+position6(f,3)+1 THEN 
xway=l [RETURN] 


IF y>position6(f,2)-2 AND 

y<position6(f,2)+10 THEN yway=l [RETURN] 

IF xway=l AND yway=l THEN 
choicemade=f:f=num% [RETURN] 

NEXT f [RETURN] 

IF choicemade=0 THEN EXIT SUB [RETURN] 
f=choicemade:ps=(positionö(f,3)/(scaleö(f,2) 
-scaleö(f,1)))*(variaö(f)-scaleö(f, 1)) 
[RETURN] 

WHILE NOT (MOUSE(0)>=0 OR 

MOUSE(1)<positionö(f, 1) OR 

MOUSE(1)>positionö(f,1)tpositionö(f,3)+1 

OR MOUSE(2)<positionö(f, 2) OR 

MOUSE(2)>positionö(f,2)+10) [RETURN] 

x=MOUSE(1) [RETURN] 

IF variaö (f) Oscaleö (f, 1) AND 
variaö (f) Oscaleö (f, 2) THEN LINE 
(positionö(f,1)+ps,positionö(f,2)+1)-(positi 
onö(f,1)+ps,positionö(f,2)+9),colourö(f,1) 
[RETURN] 

ps=x-positionö(f,1) [RETURN] 

LINE 

(positionö(f,1)+ps,positionö(f,2)+1)-(positi 
onö(f,1)+ps,positionö(f,2)+9),colourö(f,3) 
[RETURN] 

a=positionö(f,3)/(scaleö(f,2)-scaleö(f,1)):v 
ariaö(f)=(ps/a)tscaleö(f,1) [RETURN] 

IF scaleö(f,3)=1 THEN [RETURN] 
pox%=positionö(f,1)tpositionö(f,3)+8:py%=pos 
itionÖ(f,2)+8 [RETURN] 
e&=Move&(WINDOW(8),pox%,py%) [RETURN] 

PRINT USING pathö$(f);variaö(f) [RETURN] 

END IF [RETURN] 

WEND [RETURN] 

COLOR 1,0 [RETURN] 

END SUB [RETURN] 

SUB create (n%) STATIC [RETURN] 

DIM SHARED controllen(n%,5):FOR f=l TO 
n%:controllen(n%, 0)=-l:NEXT f [RETURN] 

END SUB [RETURN] 

STATIC 




SUB define (n%,x%,y%,xl% , yl% , max%) 

[RETURN] 

controllen(n%,1)=x%:controllen(n%,2)=y%:cont 
rollen(n%,0)=0 [RETURN] 

controllen(n%,3)=xl%:controllen(n%,4)=yl%:co 
ntrollen(n%,5)=max% [RETURN] 

END SUB [RETURN] 

SUB master (n%) STATIC [RETURN] 

SHARED choicemade [RETURN] 
ret%=0 [RETURN] 

masterloop: WHILE MOUSE(0)>=0:WEND [RETURN] 
px=MOUSE(l):py=MOUSE(2): choicemade=0 
[RETURN] 

FOR f=l TO n%: clicked%=0 [RETURN] 

IF controllen(f,0)=-l OR f=9 THEN mll 
[RETURN] 

IF px>controllen(f,1)-1 AND 
pxCcontrollen(f,1)tcontrollen(f,3)+1 AND 
py>controllen(f,2)-1 AND 

py<controllen(f,2)tcontrollen(f,4)+1 THEN 
clicked%=l [RETURN] 

IF clicked%=l THEN ON f GOSUB 

conl,con2,con3 r con4,con5,conö,con7 , con8,0,co 

nlO,conll [RETURN] 

IF (f=2 OR f=3) AND choicemadeOO THEN 
ret%=l [RETURN] 

IF choicemadeOO THEN f=n% [RETURN] 
mll: NEXT f [RETURN] 

IF ret%=0 THEN masterloop [RETURN] 

EXIT SUB [RETURN] 
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show2 4: choicemade=0 [RETURN] 

WHILE choicemade=0 [RETURN] 

WHILE MOUSE(0)>=0:WEND [RETURN] 
control2 4 [RETURN] 

WEND [RETURN] 

IF choicemade=4 THEN [RETURN] 

RETURN [RETURN] 

ELSEIF choicemade=2 THEN [RETURN] 

CLS:style 6:texting 20,16,"Uitvoer naar 
beeldscherm.":style 0 [RETURN] 
define2 1,19,210,571,16," 

STOP",2,1,1 [RETURN] 

show2 1:style 2:texting 15,28,"Nummer 
Categorie Naam programma 

Kleur":style 0 [RETURN] 

OPEN bestand$ FOR INPUT AS 
#1: zolang=0 :teller=5 [RETURN] 

WHILE zolang=0 [RETURN] 

LINE INPUT#1,num$:IF UCASE$(num$)="END" 

THEN zolang=l:teller=23:GOTO p [RETURN] 

LINE INPUT#1,naam$ [RETURN] 

LINE INPUT#1,cate$:LINE 

INPUT#1,a$:INPUT#1,b$ [RETURN] 

kl=VAL(a$):num$=LEFT$(num$,LEN(num$)-1) 

[RETURN] 

naam$=LEFT$(naam$,LEN(naam$)-1):cate$=LEFT$( 
cate $,LEN(cate $)-1) [RETURN] 


conl: a%=controllen(1,5)rControll 
a%:RETURN [RETURN] 

con2: a%=controllen(2,5):control2 
a%:RETURN [RETURN] 

con3: a%=controllen(3,5):Control3 
a%:RETURN [RETURN] 

con4: a%=controllen(4,5):Control4 
a%:RETURN [RETURN] 

con5: a%=controllen(5,5):Control5 
a%:RETURN [RETURN] 

con6: a%=controllen(6,5):control6 
a%:RETURN [RETURN] 

con7: a%=controllen(7,5):Control7 
a%:RETURN [RETURN] 

con8: a%=controllen(8,5):control8 
a%:RETURN [RETURN] 

conlO: a%=controllen(10,5):controll0 
a%:RETURN [RETURN] 

conll: a%=controllen(11,5)icontrolll 
a%:RETURN [RETURN] 

END SUB [RETURN] 
a: [RETURN] 

SUB dorest STATIC [RETURN] 

WHILE NOT EOF(1) [RETURN] 

LINE INPUT#1,a$ [RETURN] 

PRINT#2,a$ [RETURN] 

WEND [RETURN] 

CLOSE#2:CLOSE#l [RETURN] 

END SUB [RETURN] 

SUB plaats STATIC [RETURN] 

SHARED 

lettertyp%,stijl%,onderlijn%,vet%,cursief%, 

kst$,endje [RETURN] 

stijl%=positionll(1,5) [RETURN] 

IF stand8(1)=1 THEN lettertyp%=80 ELSE 
lettertyp%=7 7 [RETURN] 

IF stand8(3)=1 THEN onderlijn%=49 ELSE 
onderlijn%=48 [RETURN] 

IF stand8(5)=1 THEN vet%=71 ELSE vet%=72 
[RETURN] 

IF stand8(7)=1 THEN cursief%=52 ELSE 
cursief%=53 [RETURN] 

PRINT#2,STR$(lettertyp%)+";" [RETURN] 
PRINT#2,STR$(stijl%)+";" [RETURN] 

PRINT#2,STR$(onderlijn%)+";" [RETURN] 
PRINT#2,STR$(vet%)+";" [RETURN] 

PRINT#2,STR$(cursief%)+";" [RETURN] 

PRINT#2,tkst$+";" [RETURN] 

IF endje=l THEN a$="END;" ELSE a$=";" 
[RETURN] 

PRINT#2,a$ [RETURN] 

END SUB [RETURN] 
uitvoer: [RETURN] 

CLS:titel "FORM, geschreven door Swiddy de 
Louw. PRINT-OUT","FORM" 

[RETURN] 

COLOR 2,0:AREA (105,112):AREA STEP 
(190,-67):AREA STEP (190,67):AREA STEP 
(-190,67):AREA STEP (-190,-67):AREAFILL 
[RETURN] 

COLOR 1,0:LINE (105,112)-(295,45),1:LINE 
-STEP(190,67):LINE -STEP(-190,67):LINE 
-STEP(-190,-67) [RETURN] 
define2 1,140,60,150,50," 

PRINTER",3,1,2 [RETURN] 
define2 2,300,60,150,50," 

BEELDSCHERM",3,1,2 [RETURN] 
define2 3,140,115,150,50," PRINTER 
VERKORT",3,1,2 [RETURN] 
define2 4,300,115,150,50," 

HOOFDMENU",3,1,2 [RETURN] 
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m%=cpr%:PRINT#1,CHR$(27);CHR$(87);CHR$(48); 
[RETURN] 

PRINT#1,CHR$(18);CHR$(27);CHR$(70); 

[RETURN] 

ELSEIF styl%=2 THEN [RETURN] 
m%=cpr%:PRINT#1,CHR$(27);CHR$(87);CHR$(48); 
[RETURN] 

PRINT#1,CHR$(18);CHR$(27);CHR$(69); 

[RETURN] 

ELSEIF styl%=3 THEN [RETURN] 

m%=l.71*cpr%:PRINT#1,CHR$(27);CHR$(87);CHR$( 

48) ; [RETURN] 

PRINT#1,CHR$(15);CHR$(27);CHR$(70); 

[RETURN] 

ELSEIF styl%=4 THEN [RETURN] 

m%=cpr%/l.67:PRINT#1,CHR$(27);CHR$(87);CHR$( 

49) ; [RETURN] 

PRINT#1,CHR$(18);CHR$(27);CHR$(70); 

[RETURN] 

END IF [RETURN] 

a=INSTR(UCASE$(tekst$), M [NAAM]") [RETURN] 
b=INSTR(UCASE$(tekst$),"[CATEGORIE]") 

[RETURN] 

c=INSTR(UCASE$(tekst$), M [NUMMER]") [RETURN] 
IF a>0 THEN 

tekst$=LEFT$(tekst$,a-1)+naam$+MID$(tekst$,a 
+6) [RETURN] 

IF b>0 THEN 

tekst$=LEFT$(tekst$,b-l)+cate$+MID$(tekst$,b 
+11) [RETURN] 

IF c>0 THEN 

tekst$=LEFT$(tekst$,c-1)+num$+MID$(tekst$,c+ 
8) [RETURN] 

IF LEN(tekst$)>m% THEN [RETURN] 

BEEP [RETURN] 

tekst$=LEFT$(tekst$,m%) [RETURN] 

END IF [RETURN] 

PRINT#1,tekst$ [RETURN] 

teller=teller+l:IF teller>lth% THEN z2=l 
[RETURN] 

WEND [RETURN] 
u: [RETURN] 

CLOSE#3 [RETURN] 

FOR f=l TO 

lth%-teller:PRINT#1,CHR$(13):NEXT [RETURN] 
END IF [RETURN] 

WEND [RETURN] 

PRINT#1,CHR$(27);CHR$(80);CHR$(27);CHR$(45); 
CHR$(48); [RETURN] 

PRINT#1,CHR$(27);CHR$(72);CHR$(27);CHR$(53); 
CHR$(27);CHR$(114);CHR$(0); [RETURN] 

CLOSE#l:CLOSE#2 [RETURN] 

END IF [RETURN] 

END IF [RETURN] 

GOTO uitvoer [RETURN] 

RETURN [RETURN] 


PRINT#2," ";num$;" 

";LEFT$(cate$,20);STRING$(22-LEN(cate$),32); 
naam$;STRING$(43-LEN(naam$),32);kl [RETURN] 
o: [RETURN] 

WEND [RETURN] 

CLOSE#l:CLOSE#2 [RETURN] 

END IF [RETURN] 

ELSEIF choicemade=l THEN [RETURN] 
body$(l)=" Is printer gereed ?" [RETURN] 
yes$=" Ja ":no$=" Nee ":request 
200,60,1:xz%=res& [RETURN] 
body$(l)=" Kleurenprinter ? M :request 
200,60,1:printer%=res& [RETURN] 

IF xz%=l THEN [RETURN] 

LINE (140,60)- (450,165),3,b£:LINE 
(140,60)- (450,165),l,b [RETURN] 
define2 1,150,69,290,20," Begin met 
printen.",0,1,1 [RETURN] 

definelO 1,150,100,290,20,"Beginnummer van 
label.",stl%,0,999,4,0,1,1 [RETURN] 
definelO 2,150,132,290,20,"Eindnummer van 
label.",edl%,0,999,4,0,1,1 [RETURN] 
show2 1:showlO 2:FOR f=l TO 
11:controllen(f, 0)=-l:NEXT [RETURN] 
define 2,150,69,290,20,1 [RETURN] 
define 10,150,100,290,52,2 [RETURN] 
master 10: stl%=valuel0 (1): edl%=valuel0 (2) 
[RETURN] 

OPEN "par:" FOR OUTPUT AS #1 [RETURN] 
cpr%=INT(breedte%/3):lth%=INT(hoogte%/4):zol 
ang=0 :PRINT#1,CHR$(27);CHR$(108);CHR$(lmarge 
%); [RETURN] 

PRINT#1,CHR$(27);CHR$(120);CHR$(48+nlqofdraf 
t%); [RETURN] 

OPEN bestand$ FOR INPUT AS #2 [RETURN] 
w=0 [RETURN] 

WHILE zolang=0 [RETURN] 

w=w+l [RETURN] 

LINE INPUT#2,num$:IF UCASE$(num$)="END" 

THEN zolang=l:GOTO u [RETURN] 

LINE INPUT#2,naam$ [RETURN] 

LINE INPUT#2,cate$:LINE 
INPUT#2,a$:INPUT#2,b$ [RETURN] 
kl=VAL(a$):num$=LEFT$(num$,LEN(num$)-1) 
[RETURN] 

naam$=LEFT$(naam$,LEN(naam$)-1):cate$=LEFT$( 
cate$,LEN(cate$)-1):z2=0 [RETURN] 

IF w>=stl% AND w<=edl% THEN [RETURN] 

OPEN bron$ FOR INPUT AS #3:teller=0 
[RETURN] 

WHILE z2=0 [RETURN] 

LINE INPUT#3,a$:lt%=VAL(a$) [RETURN] 

LINE INPUT#3,a$:styl%=VAL(a$) [RETURN] 

LINE INPUT#3,a$:onder%=VAL(a$) [RETURN] 

LINE INPUT#3,a$:vet%=VAL(a$) [RETURN] 

LINE INPUT#3,a$:cursief%=VAL(a$) [RETURN] 
LINE INPUT#3,a$:tekst$=LEFT$(a$,LEN(a$)-1) 
[RETURN] 

LINE INPUT#3,a$:IF UCASE$(a$)="END;" THEN 
z2=l [RETURN] 

'instellen van printer 

(vet,onderlijnen,lettertype, etc.) [RETURN] 
PRINT#1,CHR$(27);CHR$(lt%);CHR$(27);CHR$(45) 
;CHR$(onder%); [RETURN] 

PRINT#1,CHR$(27);CHR$(vet%);CHR$(27);CHR$(cu 
rsief%); [RETURN] 

IF printer%=l THEN 

PRINT#1,CHR$(27);CHR$(114);CHR$(kl); 

[RETURN] 

IF styl%=l THEN [RETURN] 
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Amiga 


Een inleiding tot de wonderbaarlijke wereld van de 68000-serie, de copper, blitter, 
ClA’s, en nog veel meer. Beleef mee hoe de Amiga haar geheugen indeelt, bitjes 
manipuleert, programma’s laat communiceren, en met schermen en vensters goo¬ 
chelt. Ervaar de zinderende snelheid van... 

Amiga machinetaal 


N atuurlijk, zo geweldig en flitsend als hierboven geschetst wordt, zal ’t in 
het begin niet gaan. Maar je allereerste assemblerprogramma te zien 
werken... dat geeft toch wel een bepaalde ’kick’. We kunnen dan terecht van 
een KICKSTART praten! Voordat de bitjes en blitjes ons om de oren vliegen, 
moeten we toch eerst even wat feiten op een rijtje zetten. Want als er straks 
sprake zal zijn van registers, adressen, statusbits etc. is het wel zo leuk om 
te weten waar we het dan over hebben. Ook voor diegenen die vroeger al 
met 6502 machinetaal bezig zijn geweest, op de Commodore 64 of 128 
waarschijnlijk, zullen een aantal begrippen en principes tegenkomen die ze 
al kennen. Toch is het zinvol om er even bij te blijven, want een 68000 
processor is toch weer net ietsje anders. Ongeveer twee keer de helft 
namelijk. Onder ’feiten’ verstaan we vooral de opbouw van de 68000 pro¬ 
cessor, voortaan zullen wij deze processor als 68000 aanduiden. Verder 
gaan we als eerste bekijken, opdat je een idee krijgt van de vorm en functie 
van registers. 

68000 Intern 

Zoals iedereen wel begrijpen zal, 
moet een 68000 gegevens hebben 
waarmee gewerkt kan worden; bv. 2 
getallen voor een vermenigvuldiging. 

Deze gegevens kunnen uit 2 plaatsen 
komen: de interne registers van de 
68000, en het RAM. Er zijn 20 regis¬ 
ters in de 68000 aanwezig: 

D0...D7 : 8 dataregisters, deze zijn 4 
bytes groot, en kunnen zodoende 32 
bits bevatten. Ze kunnen rekenen met 
bytes, words (2 bytes), en longwords 
(4 bytes). A0...A7 : 8 adresregisters 
deze zijn ook 4 bytes groot, maar kun¬ 
nen slechts voor word- en longword- 
operaties gebruikt worden. Verwijzin¬ 
gen naar het RAM-geheugen kunnen 
alleen via deze registers gebeuren. 

Register A7 heeft een speciale func¬ 
tie; n.l. als stackpointer. PC : program 
counter hierin staat het adres van de 
instructie die op dat moment door de 
processor uitgevoerd wordt. USP en 
SSP: stackpointers SR : status regis¬ 
ter dit bevat bits, die de status van de 
processor weergeven. Deze status 
kan veranderd worden naar aanlei¬ 
ding van het resultaat van een opera¬ 
tie. De inhoud is als volgt: 


Systeem byte 


User byte 


Bitl5 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 
T S III XNZVC 

De user byte bevat 5 bits die de con¬ 
ditie van de processor weergeven na 
een operatie, zoals een rekenfunctie 



of een vergelijkingsopdracht. Met 
deze bits kan de uitkomst van zo’n 
operatie gebruikt worden voor een 
sprongopdracht, zoiets als ’sla 20 by¬ 
tes over als het resultaat nul is’. 

Bit 0: carry bit C bij een rekenfunctie 
is een overloop (’een onthouden’) 
voorgekomen. Bit 1: overflow bit V 
het resultaat van een rekenfunctie is 
te groot voor het antwoord-register of 
-adres. Bit 2: zero bit N het resultaat 
is nul. Bit 3: negatief bit het resultaat 
van een operatie is negatief. Bit 4: ex- 
tend bit X heeft ongeveer dezelfde 
functie als carry-bit C, maar wordt 
door minder instructies gebruikt. 

Op de exacte functie van de systeem- 
byte komen we later terug; hier vol- 






staan we voorlopig met een korte be¬ 
schrijving. Bit 8/9/10: interrupt mas¬ 
ker de combinatie van deze 3 bits 
geeft aan van welke bron een inter¬ 
rupt afkomstig is. Bit 13: supervisor 
bit heeft de waarde T als de proces¬ 
sor in supervisor-status werkt, de 
waarde ’0’ voor user-status. Bit 15: 
tracé bit deze heeft de waarde ’T als 
de 68000 in trace-mode werkt. 

RAM 

Het geheugen buiten de processor 
bestaat uit RAM, waarmee de proces¬ 
sor gegevens kan lezen en schrijven, 
en ROM, alleen leesbaar. De 68000 
processor kan maximaal 16 megaby¬ 
te RAM en/of ROM geheugen adres¬ 
seren. Op een Amiga 500 zit stan¬ 
daard 1/2 megabyte RAM, oftewel 
512 kilobyte, de rest kan via geheu- 
gen-kaarten erbij gevoegd worden. 
Een populaire uitbreiding is de A501 
kaart; deze kan in iedere Amiga 500 
gezet worden, en bevat 512k RAM. 
Hiermee komt het totale geheugen op 
1 megabyte. En dat lijkt tegenwoordig 
een ’must’ te worden, afgaande op de 
programma’s die met minder dan 1 
megabyte geen genoegen nemen. 
Voor de meeste programma’s is 512k 
gelukkig nog meer dan genoeg. Om 
iedereen nog meer te verwarren: het 
kan ook andersom! We denken daar¬ 
bij aan programma’s, die extra RAM 
helemaal niet leuk vinden. Dit komt 
door de ’custom c hips’, die de grafi- 
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sche en muzikale mogelijkheden van 
de Amiga mogelijk maken. Deze 
chips zijn speciaal gemaakt om de 
68000 te ontlasten; ze kunnen op ei¬ 
gen houtje gegevens uit RAM halen 
of erin zetten zonder hulp van de pro¬ 
cessor. Het nadeel is dat ze niet ver¬ 
der dan de normale 512 kbyte kunnen 
adresseren; daarom heet dit stuk 
RAM ook wel CHIP RAM dat deel van 
de RAM dat bestemd is voor de (cus- 
tom) chips. RAM dat buiten die CHIP 
RAM staat, kan alleen door de 68000 
gelezen en beschreven worden. Om¬ 
dat de custom chips hier niet ’in de 
weg’ zitten, is het gebruik van dit RAM 
iets sneller dan bij CHIP-RAM. Daar¬ 
om wordt het FAST RAM genoemd. 
Dus, gegevens die in FAST RAM 
staan worden niet herkend door de 
custom chips. Het is de taak van de 
programmeur om te zorgen dat data, 
bestemd voor de custom chips, in 
CHIP-RAM terecht komt! Gebeurt dat 
niet, dan is het resultaat: troep op je 
scherm, of allerlei rare geluidjes. En 
er zijn nogal wat slecht gemaakte pro¬ 
gramma’s, die op hun bek gaan als ze 
in FAST RAM terecht komen. 

K-SEKA 

Om dit soort problemen te voorko¬ 
men, raden we aan om een assem- 
blerte gebruiken, die zowel met CHIP 
als met FAST RAM om kan gaan. 
Onze keus is gevallen op de K-SEKA 
assembler van Kuma Computers Ltd. 
"Waarom SEKA?", zul je je afvragen. 
Er zijn meer assemblers te koop, of 
gratis verkrijgbaar in het Public Do- 
main circuit, maar die hebben een 
paar nadelen: 

° de brontekst (listing) moeten via 
een aparte editor geschreven wor¬ 
den; 

0 een assembler maakt van de bron¬ 
tekst een machinetaalprogramma 
(object code); 

° een linker zorgt ervoor dat het een 
werkend programma (object pro¬ 
gram) wordt. 

De SEKA assembler heeft al deze 
functies bij elkaar staan; er hoeft niks 
van disk bijgeladen te worden. As¬ 
sembleren en linken gebeurt auto¬ 
matisch, en alle files, brontekst, ma¬ 
chinetaal en object code, blijven in 
RAM staan. Dus geen laden en saven 
van en naar disk. Dit maakt SEKA 
een bijzonder snelle jongen; assem¬ 
bleren & linken gaat tot 25000 regels 
brontekst per minuut! Dat is althans 
wat de handleiding beweert. We heb¬ 
ben dat niet kunnen testen (een bron¬ 
tekst van 25000 regels was niet zo 
snel voorhanden), maar wel een pro¬ 


gramma van 1000 regels. Dat is al 
aardig wat, al zeggen we het zelf. Het 
assembleren en linken duurde iets 
minder dan 3 seconden. Omgerekend 
komt dat op ruim 20000 regels per mi¬ 
nuut: een snellere assembler moeten 
wij nog tegenkomen! 

Let wel: er zijn nogal wat oude versies 
van SEKA in gebruik, die object-code 
in FAST RAM zetten. Dat geeft dus 
wel eens probleempjes voor de trotse 
bezitters van geheugen uitbreidingen, 
de oorzaak daarvan mag nu wel be¬ 
kend zijn. Er is een vernieuwde, he¬ 
laas onofficiële versie in omloop, die 
een zelfgemaakt programma naar 
keuze in CHIP of FAST RAM plaatst. 
Het is natuurlijk overbodig om te zeg¬ 
gen dat dit de voorkeur verdient. 



Eerste voorbeeld 

Na deze inleiding wordt het tijd om 
eens echt met het machinetaalgebeu- 
ren te beginnen. Wie SEKA niet bezit, 
hoeft niet te wanhopen: voor het eer¬ 
ste voorbeeld kan iedere assembler 
gebruikt worden! Alleen is de bedie¬ 
ning anders dan hier beschreven 
wordt. Raadpleeg de handleiding die 
bij je assembler zit, als je er niet uit¬ 
komt. Enfin, aan het werk nu! Start 
SEKA op vanaf CLI of workbench. We 
houden het nog eenvoudig, dus de 
workspace kan op 10 of zo gezet wor¬ 
den. Bezitters van de nieuwe SEKA- 
versie moeten nog aangeven of ze in 
CHIP of FAST RAM willen werken. 
Als je in de command-mode zit, bij de 
SEKA prompt, druk dan op de Esc- 
toets om naar de editor te gaan. Snel 
even het volgende programmaatje in¬ 
tikken: 

LISTING 1 

1 start: move.1 $4,a6 

2 lea dosnaam,al 

3 jsr -408(a6) 

4 move.1 d0,a6 

5 jsr -60(a6) 

6 move.1 d0,dl 

7 move.1 #tekst,d2 


8 move.1 #eind-tekst,d3 

9 jsr -48(a6) 

10 clr d0 

11 rts 

12 even 

13 dosnaam: dc.b 'dos.library',0 

14 even 

15 tekst: dc.b 'Hallo wereld!',10 

16 eind: 

P.S. de regelnummers zijn hier voor 
het gemak. Die mag je niet intikken; 
ook niet bij andere assemblers! 

Druk vervolgens op Esc om weer 
naar de command-mode te gaan. Het 
eerste wat we nu doen, is de bron¬ 
tekst saven, met het ’w’ (Write) com¬ 
mando. Maak hier een gewoonte 
van, want zeker is zeker. Een klein 
foutje in de machinetaal-listing kan la¬ 
ter een ’crash’ tot gevolg hebben, en 
dan ben je alles KWIJT wat nog niet 
op disk staat! Dus: saven, zolang het 
nog kan. Goed, we zijn er nog niet, 
want het programma moet nog geas¬ 
sembleerd worden. Waar de meeste 
assemblers nu een assemble- en een 
link-opdracht nodig hebben, hoeft de 
SEKA-bezitter slechts het commando 
’a’ (Assemble) te geven. Er wordt 
naar OPTIONS gevraagd, maar die 
zijn op dit moment niet belangrijk. 
Daar kun je rustig met de Return-toets 
op antwoorden. Onwaarschijnlijk snel 
wordt alles geassembleerd, en klaar 
is Kees! Tenminste, als de melding 
"No Errors" verschijnt! Bij een fout, 
een typefoutje bijvoorbeeld, komt de 
’defecte’ regel in beeld. Dan is een 
snelle sprong naar de editor voldoen¬ 
de om de fout te kunnen herstellen. 
Vervolgens komen we bij het com¬ 
mando ’h’ (Howbig) om te kijken hoe 
groot de verschillende files zijn ge¬ 
worden: 

Work - plaats en grootte van de work¬ 
space; 

Src - plaats en grootte van brontekst; 
RelC - informatie om code later in te 
kunnen laden; 

RelD - idem Code - plaats en grootte 
van de object-code. 

Wie geen gekke dingen heeft gedaan, 
krijgt een overzicht die er ongeveer 
als volgt uitziet: 

Work 017E70 01A670 10240 

Src 017E76 017FB4 318 

RelC 0181E8 0181F8 16 

RelD 0181FC 018204 8 

Code 018214 018258 68 

De adressen zullen waarschijnlijk an¬ 
ders zijn, maar dat is niet erg. Zolang 
de grootte klopt, is alles in orde. Op dit 
moment heeft SEKA de brontekst en 
de assembler-code tegelijk in het ge¬ 
heugen zitten. We hebben al gezien 
dat de brontekst op disk gezet kan 
worden met het ’w’ commando. Om 
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de object-code te saven, is het ’wi’ 
commando (Write Image) nodig. Als 
je het programma echter later vanuit 
de CLI wilt opstarten, moet je het sa¬ 
ven met het commando ’wo' (Write 
Object). Als je een van deze twee mo¬ 
gelijkheden gebruikt, wil SEKA na¬ 
tuurlijk weten wat er nou precies op 
disk gezet moet worden. Je moet 
daarvoor het begin- en eindadres op¬ 
geven van de object-code. Die adres¬ 
sen kun je met het ’h’ commando op¬ 
vragen. In plaats daarvan kunnen ook 
labels gebruikt worden die in de bron¬ 
tekst voorkomen. Omdat waarschijn¬ 
lijk niet iedereen al eerder met een la- 
bel-assembler gewerkt heeft, zullen 
we dit fenomeen even wat nader toe¬ 
lichten. 

Labels 

Labels zijn een soort variabelen. Ze 
krijgen hun waarde als het program¬ 
ma geassembleerd wordt. Elk label 
stelt namelijk een adres voor. Als we 
het voorbeeldprogramma bekijken, 
zijn dat er vier. Namelijk de labels: 
"start", "dosnaam", "tekst" en "eind". 
Tijdens het assembleren krijgen ze 
hun eigen (adres)waarde. De waarde 
van "start" wordt het beginadres van 
het programma. In het label "tekst" 
komt het adres te staan waar het zin¬ 


netje "Hallo wereld !" begint. Door die 
variabele te gebruiken, zie regel 7 en 
8, kan binnen het programma bepaald 
worden waar de tekst zich bevindt. 
Om op het saven terug te komen: be¬ 
gin- en eind-adres kun je dus ook 
aangeven met labels; in ons geval 
door de woorden "start" en "eind" in te 
tikken. Als je de object-code op disk 
zet, wordt -bij de nieuwe SEKA ver¬ 
sie- ook nog naar MODE gevraagd. 
Hier moet een C (CHIP) of F (FAST) 
ingevoerd worden. Dit bepaalt in wel¬ 
ke soort RAM het programma later 
wordt geladen. 

Let’s go 

Na al deze save-perikelen wordt het 
tijd om de boel eens te laten draaien. 
De object-code kan met het comman¬ 
do ’g’ (Goto) gestart worden. Achter 
’g’ kun je nog een startadres of -label 
aangeven. Bij ons voorbeeld is het 
voldoende om ’gstart’ in te tikken. 
Dan vraagt SEKA nog om een break¬ 
point. Dit is een adres (of label) in het 
programma, waar gestopt zal worden 
door SEKA. Als dat niet nodig is, kan 
’t met een druk op de return-toets 
overgeslagen worden. Vrijwel direct 
nadat op return gedrukt is, komt de 
SEKA prompt terug, samen met een 
overzicht van de registers. Verder is 


er niks gebeurt... denk je! Het voor- 
beeld-programma stuurde een zinne¬ 
tje naar de standaard output. Dat is op 
dat moment het CLI-venster. Klik het 
SEKA-venster maar eens naar achte¬ 
ren, met het 2e gadget rechtsboven. 
Dan zie je het CLI-venster, met daar¬ 
in. kijk zelf maar! Als je het object-pro- 
gramma op disk gezet hebt, met com¬ 
mando ’wo’, dan kun je die vanuit de 
CLI opstarten. Gooi SEKA dan event¬ 
jes eruit (via ’!’) en tik de filenaam in 
die je bij het saven gebruikt hebt. Zie¬ 
daar een wonder gebeuren, en ben je 
gelukkig! 

Tot slot 

Aangezien er niets kapot kan gaan, is 
het prima om wat met het programma 
te 'rotzooien’. Probeer verschillende 
teksten uit, er kunnen leuke 'menuu¬ 
tjes’ mee gemaakt worden, voeg er 
wat control-karakters in, b.v. ctrl-l 
maakt het scherm schoon. Ach, laat 
je fantasie de vrije loop. De volgende 
keer zullen we aan de hand van dit 
voorbeeld-programma dieper op de 
machinetaal-instructies ingaan. Dan 
bekijken we ook hoe de Amiga met 
zijn geheugen omgaat. 

Stay tuned! 

JOHAN & JOHAN 
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